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Introduction 


The 16K monitor program of the Spectrum is a complex Z80 machine code Program. Its 
overall structure is very clear in that it is divided into three major parts; 

a. Input/Output routines, 

b. BASIC interpreter, 

c. Expression handling. 
However these blocks are too large to be managed easily and in this book the monitor 
program is discussed in ten parts. 

Each of these parts will now be ‘outlined’. 


The restart routines and tables. 
At the start of the monitor program are the various ‘restart’ routines that are called with 
the single byte ‘RST’ instructions, All of the ‘restarts’ are used. For example ‘restart 
0008’ is used for the reporting of syntax or run-time errors. 

The tables in this part of the monitor program hold the expanded forms of the 
tokens and the ‘key-codes’. 


The keyboard routine. 

The keyboard is scanned every 1/50 th. of a second (U.K. model) and the keyboard 
routine returns the required character code. All of the keys of the keyboard ‘repeat’ 
if they are held down and the keyboard routine takes this into consideration. 


The loudspeaker routines. 

The Spectrum has a single on-board loudspeaker and a note is produced by repeatedly 
using the appropriate ‘OUT’ instruction. In the controller routine great care has been 
taken to ensure that the note is held at a given ‘pitch’ throughout its ‘duration’, 


The cassette handling routines. 
It was a very unfortunate feature of the ZX 81 that so little of the monitor program for 
that machine was devoted to the cassette handling. 

However in the Spectrum there is an extensive block of code and now the high stand- 
ard of cassette handling is one of the most successful features of the machine. 

BASIC programs or blocks of data are both dealt with in the same manner of having 
a ‘header’ block (seventeen bytes) that is SAVEd first. This ‘header’ describes the ‘data 
block’ that is SAVEd after it. 

One disadvantage of this system is that it is not possible to produce programs with 
any ‘security’ whatsoever. 


The screen and printer handling routines. 
All of the remaining input/output routines of the Spectrum are ‘vectored’ through the 
‘channel & stream information areas’. 

In the standard Spectrum ‘input’ is only possible from the keyboard but ‘output’ 
can be directed to the printer, the upper part of the T.V. display or the lower part of the 
T.V. display. 

The major ‘input’ routine in this part of the monitor program is the EDITOR that 
allows the user to enter characters into the lower part of the T.V. display. 

The PRINT-OUT routine is a rather slow routine as the same routine is used for ‘all 
Possibilities’. For example, the adding of a single byte to the ‘display area’ involves 
considering the present status of OVER and INVERSE on every occasion. 


The executive routines 
In this part of the monitor program are to be found the INITIALISATION procedure 
and the ‘main execution loop’ of the BASIC interpreter. q 

In the Spectrum the BASIC line returned by the EDITOR is checked for the correct- 
‘Ness of its syntax and then saved in the program area, if it was a line starting with a line 


_ number, or ‘executed’ otherwise. 
This execution a in turn lead to further statements being considered. (Most clearly 


seen as in the case of - RUN.) 


THE DISASSEMBLY 
THE RESTART ROUTINES and THE TABLES 


THE ‘START’ 
The maskable interrupt is disabled and the DE register pair set to hold the ‘top of 


possible RAM’. 


0000 START DI Disable the ‘keyboard interrupt’ 
xXOR A +00 for ‘start’ (but “FF for 
‘NEW'). 
LD DE,+FFFF Top of possible RAM. 
JP 11CB, START/NEW Jump forward. 


THE ‘ERROR’ RESTART 


The error pointer is made to point to the position of the error. 


0008 ERROR-1 LD HL,(CH-ADD) The address reached by the 
LD (X-PTR),HL interpreter is copied to the error 
JR 0053,ERROR-2 pointer before proceeding. 


THE ‘PRINT A CHARACTER’ RESTART 
The A register holds the code of the character that is to be printed. 


0010 PRINT-A-1 JP 15F2,PRINT-A-2 Jump forward immediately. 
DEFB +FF,+FF,+FF,+FF,AFF Unused locations. 


THE ‘COLLECT CHARACTER’ RESTART 
The contents of the location currently addressed by CH-ADD are fetched. A return is 
made if the value represents a printable character, otherwise CH-ADD is incremented and 


the tests repeated. 


0018 GET-CHAR LD HL,(CH-ADD) Fetch the value that is addressed 
LD A AHL) by CH-ADD. 

001C TEST-CHAR CALL 007D,SKIP-OVER Find out if the character is 
RET NC printable. Return if it is so. 


THE ‘COLLECT NEXT CHARACTER’ RESTART 
As a BASIC line is interpreted, this routine is called repeatedly to step along the line. 


0020 NEXT-CHAR CALL 0074,CH-ADD+1 CH-ADD needs to be incre- 
mented. 
JR 001C,TEST-CHAR Jump back to test the new 
value. 
DEFB +FF,+FF,+FF Unused locations. 


THE ‘CALCULATOR’ RESTART 
The floating-point calculator is entered at 335B. 


0028 FP-CALC uP 335B,CALCULATE Jump forward immediately. 
DEFB +FF+FF,+FF,+FF+FF Unused locations. 


THE ‘MAKE BC SPACES’ RESTART 


This routine creates free locations in the work space. The number of locations is deter- 
‘mined by the current contents of the BC register pair. 


0030 BC-SPACES PUSH BC Save the ‘number’. 
LD HL,(WORKSP) Fetch the present address of the 
PUSH HL start of the work space and save 
JP 169E RESERVE that also before proceeding, 
ya 


THE ‘MASKABLE INTERRUPT’ ROUTINE ASDC 4_ G 
Ce clock is incremented and the keyboard scanned whenever & maskable 


Nterrupt occurs, a 
0038 t Save the current values held in 
heel PusH AL these registers. 
a LD HL, (FRAMES) The lower two bytes of the 


1 


0090 SKIPS 


THE TOKEN TABLE 
All the tokens used by the Spectrum are expanded by reference to this table. The last 
code of each token us ‘inverted’ by having its bit 7 set. 


c 
+18 


Cc 

HL 

+16 
C,0090,SKIPS 
HL 


(CH-ADD),HL 


but with carry set. 
Return with codes +18 to +20 
again with carry set. 


Skip-over once. 

Jump forward with codes +10 
to +15 (INK to OVER). 
Skip-over once more (AT & 
TAB), 

Return with the carry flag set 
and CH-ADD holding the 
appropriate address. 


-2->>2042-<4 
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THE KEYBOARD ROUTINES 
THE ‘KEYBOARD SCANNING’ SUBROUTINE 


This very important subroutine is called by both the main keyboard subroutine and the 
INKEYG routine (in SCANNING). 

In all instances the E register is returned with a value in the range +00 to +27, the 
value being different for each of the forty keys of the keyboard, or the value +FF, for 
no-key. 

The D register is returned with a value that indicates which single shift key is being 
pressed. If both shift keys are being pressed then the D and E registers are returned with 
the values for the CAPS SHIFT and SYMBOL SHIFT keys respectively. 

If no key is being pressed then the DE register pair is returned holding +FFFF. 

The zero flag is returned reset if more than two keys are being pressed, or neither key 
of a pair of keys is a shift key. 


028E KEY-SCAN LD L,+2F The initial key value for each 
line will be +2F,+2E,.. .+28. 
(Eight lines.) 
LD DE,+FFFF Initialise DE to ‘no-key’. 
LD BC,+FEFE C = port address, B = counter. 


Now enter a loop. Eight passes are made with each pass having a different initial key 
Lahr scanning a different line of five keys. (The first line is CAPS SHIFT, Z, X 
CV. , 


0296 KEY-LINE IN A,(C) Read from the port specified. 
CPL A pressed key in the line will set 
AND +1F its respective bit (from bit 0 — 


outer key, to bit 4 — inner key). 
JR Z,02AB,KEY-DONE Jump forward if none of the 
five keys in the line are being 


Pressed. 
LD H,A The key-bits go to the H register 
LD Ae whilst the initial key value is 
fetched. 
029F KEY-3KEYS INC D If three keys are being pressed 
RET NZ on the keyboard then the D 
register will no longer hold +FF 
— so return if this happens. 
02A1 KEY-BITS SUB +08 Repeatedly subtract ‘8’ from 
SRL H the present key value until a 
JR NC,02A1,KEY-BITS  key-bit is found. 
LD D,E Copy any earlier key value to 
the D register. 
‘LD EA Pass the new key value to the 
E register. 


JR NZ,029F ,KEY-3KEYS If there is a second, or possibly 
a third, pressed key in this line 
then jump back. 

02AB KEY-DONE DEC) =k The line has been scanned so the 

initial key value is reduced for 
the next pass. 

RLC B The counter is shifted and the 

JR C,0296,KEY-LINE jump taken if there are still lines 
to be scanned. 


Four tests are now made. 


LD A,D Accept any key value which still 

INC A has the D register holding +FF. 

RET re i.e. A single key pressed or 
‘no-key’. 

cP +28 Accept the key value for a pair 

RET Z of keys if the 'D’ key is CAPS 
SHIFT. 


BIT 7,(HL) Continue if the set is ‘free’ but 
REM yh ae exit from the KEYBOARD 
subroutine if not. 


The new key is to be accepted. But before the system variable LAST-K can be filled, the 
KSTATE system variables, of the set being used, have to be initialised to handle any 
repeats and the key’s code has to be decoded, 


02F1 K-NEW LD EA The code is passed to the 
LD (HL),A E register and to KSTATEO/4, 
INC HL The ‘5 call counter’ for this 
LD (HL),+05 set is reset to ‘5’. 
INC. HL The third system variable of 
LD AAREPDEL) the set holds the REPDEL value 
LD (HL),A (normally 0.7 secs.). 
INC HL Point to KSTATE3/7. 


The decoding of a ‘main code’ depends upon the present state of MODE, bit 3 of FLAGS 
and the ‘shift byte’. 


LD C,(MODE) Fetch MODE. 

LD D,(FLAGS) Fetch FLAGS. 

PUSH HL Save the pointer whilst the 
CALL 0333,K-DECODE ‘main code’ is decoded. 

POP HL 

LD (HL),A The final code value is saved in 


KSTATE3/7; from where it is 
collected in case of a repeat. 


The next three instruction lines are common to the handling of both ‘new keys’ and 
‘repeat keys’. 


0308 K-END LD (LAST-K),A Enter the final code value into 
SET 5, (FLAGS) LAST-K and signal ‘a new key’. 
RET Finally return. 


THE ‘REPEATING KEY’ SUBROUTINE 

A key will ‘repeat’ on the first occasion after the delay period — REPDEL (normally 
07 secs.) and on subsequent occasions after the delay period — REPPER (normally 
0.1 secs.). 


0310 K-REPEAT INC HL Point to the ‘5 call counter’ 
LD (HL),+05 of the set being used and reset 
it to ‘5’. 
INC HL Point to the third system vari- 
DEC (HL) able — the REPDEL/REPPER 
value, and decrement it. 
RET NZ Exit from the KEYBOARD 


subroutine if the delay period 
has not passed. 


LD A,(REPPER) However once it has passed the 

LD (HL),A delay period for the next repeat 
is to be REPPER. 

INC HL The repeat has been accepted 

LD AHL) so the final code value is fetched 
from KSTATE3/7 and passed 

JR 0308,K-END to K-END. 

me ‘K-TEST’ SUBROUTINE 


ld value is tested and a return made if ‘no-key’ or ‘shift only’; otherwise the 
jin code’ for that key is found. 


TT} H Copy the shift byte. 

oe re a tb B00 Clear the D register for later. 
LD AE Move the key number. 
cp +27 Return now if the key was 
RET NC “CAPS SHIFT’ only or ‘no-key’. 


THE LOUDSPEAKER ROUTINES 


The two subroutines in this section are the BEEPER subroutine, that actually controls 
the loudspeaker, and the BEEP command routine. 

The loudspeaker is activated by having D4 low during an OUT instruction that is 
using port ‘254’. When D4 is high in a similar situation the loadspeaker is deactivated. A 
‘beep’ can therefore be produced by regularly changing the level of D4. 

Consider now the note ‘middle C’ which has the frequency 261.63 hz. In order to 
get this note the loudspeaker will have to be alternately activated and deactivated 
every 1/523.26 th. of a second. In the SPECTRUM the system clock is set to run at 
3.5 mhz. and the note ‘middle C’ will require that the requisite OUT instruction be 
executed as close as possible to every 6,689 T states, This last value, when reduced 
slightly for unavoidable overheads, represents the ‘length of the timing loop’ in the 
BEEPER subroutine. 


THE ‘BEEPER’ SUBROUTINE 
This subroutine is entered with the DE register pair holding the value ‘f*t’, where a note 
of given frequency ‘f’ is to have a duration of ‘t’ seconds, and the HL register pair 
holding a value equal to the number of T states in the ‘timing loop’ divided by ‘4’. 

i.e. For the note ‘middle C’ to be produced for one second DE holds +0105 (INT 
(261.63 * 1) ) and HL holds +066A (derived from 6,689/4 — 30.125). 


03B5 BEEPER DI Disable the interrupt for the 
duration of a ‘beep’. 
LD A,L Save L temporarily. 
SRL E Each ‘1’ in the L register is 
SRE to count ‘4’ T states, but take 


INT (L/4) and count ‘16’ T 
states instead. 


CPL Go back to the original value 

AND +03 in Land find how many were 

ED C.A lost by taking INT (L/4). 

LD B,+00 

LD 1X,403D1 The base address of the timing 
loop. 

ADD IX,BC Alter the length of the timing 


loop. Use an earlier starting 
point for each ‘1’ lost by taking 


INT (L/4). 
LD A,(BORDCR) Fetch the present border 
AND +38 colour and move it to bits 
RRCA 2,1 & O of the A register. 
RRCA 
RRCA 
OR +08 Ensure the MIC output is ‘off’. 


Now enter the sound generation loop. ‘DE’ complete passes are made, i.e. a pass for each 
cycle of the note. 

The HL register holds the ‘length of the timing loop’ with ‘16’ T states being used for 
each ‘1' in the L register and ‘1,024’ T states for each ‘1’ in the H register. 


03D1 BE-IX+3 NOP Add ‘4’ T states for each 
03D2 BE-IX+2 NOP. earlier entry point 
03D3 BE-IX+1 NOP that is used. 


The values in the B & C registers 
will come from H & L registers 
— see below. 
‘03D6 BE-H&L-LP = DEC The ‘timing loop’. 
i JR NZ,03D6,BE-H&L-LP i.e. ‘BC’ * ‘4’ T states. 

LD C,+3F (But note that at the half-cycle 


DEC 8B point — C will be equal to 
JP NZ,03D6,BE-H&L-LP ‘L+1".) 


er is now alternately activated and deactivated. 
xOR +10 Flip bit 4. 


Wh 


03D4 BE-IX+0 INC 


Zz 
5 
2 oo 


JR NZ,046C,REPORT-B 


LD A,B Fetch the low-byte and test 
it further, 

ADD A,+3C 

JP P,0425,BE-i-OK Accept -60 <= i<=67. 


JP PO,046C,REPORT-B_ Reject -128 to -61. 
Note: The range +70 to +127 will be rejected later on. 
The correct frequency for the ‘pitch’ i can now be found. 


0425 BE-i-OK LD B,+FA Start ‘6’ octaves below middle C. 
0427 BE-OCTAVE INC B Repeatedly reduce i in order to 
SUB +0C find the correct octave. 
JR NC,0427,BE-OCTAVE 
ADD A,+0C Add back the last subtraction. 
PUSH BC Save the octave number. 
LD HL.+046E The base address of the ‘semi- 
tone table’. 
CALL 3406,LOC-MEM Consider the table and pass the 


CALL 33B4,STACK-NUM ‘A th.’ value to the calculator 
stack. (Call it C.) 


Now the fractional part of the ‘pitch’ can be taken into consideration. 


RST 0028,FP-CALC t, PK+1,C 
DEFB +04,multiply t, C(pK+1) 
DEFB +38 end-caic 


The final frequency f is found by modifying the ‘last value’ according to the octave 
number. 


PoP AF Fetch the octave number. 

ADD A,(HL) Multiply the ‘last value’ by 

LD (HL),A ‘2 to the power of the octave 

number’. 

RST 0028,FP-CALC tf 

DEFB +COst-mem0O The frequency is put aside for 

DEFB +02,delete the moment in mem-0. 
Attention is now turned to the ‘duration’. 

DEFB +31,duplicate tat 

DEFB +38,end-calc 

CALL 1€94,FIND-INT1 The value ‘INT t’ must be in 

cP +0B the range +00 to +0A. 


JR NC,046C,REPORT-B 
The number of complete cycles in the ‘beep’ is given by ‘f*t’ so this value is now found. 


RST 0028,FP-CALC t 
DEFB +E0,get-mem0 tif 
DEFB +04,multiply At 


The result is left on the calculator stack whilst the length of the ‘timing loop’ required 
for the ‘beep’ is computed; 


DEFB +E0,get-memO f*t, f s 
DEFB +34,stk-data The value ‘3.5* 108/8 
DEFB +80,four bytes is formed on the top of 


DEFB +43,exponent +93 the calculator stack. 
DEFB +55,t9F,+80,(+00) f*t, f, 437,500 (dec.) 
DEFB +01,exchange f*t, 437,500, f 
DEFB +05.division #*t, 437,500/f 
DEFB +34,stk-data ae 
jonent + 
DEB $91(700,400,400) f*t, 437,500/f, 30.125 (dec.) 
DEFB +03,subtract f*t, 437,500/f — 30.125 
DEFB +38,end-cale 
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= 3 


note 
c 
C# 
D 
D# 
ae =) 
F 
Fe 
G 
G# 
A 
Ae 
B 


THE CASSETTE HANDLING ROUTINES 


The 16K monitor program has an extensive set of routines for handlin: 
interface. In effect these routines form the SAVE, LOAD, VERIEY & MERGE com 
mand routines. 

The entry point to the routines is at SAVE-ETC (0605). However before this point 
are the subroutines concerned with the actual SAVEing and LOADing lor VERIF Ying) 
of bytes. 

In all cases the bytes to be handled by these subroutines are described by th 
register pair holding the ‘length’ of the block, the 1X register pair holding ita Soon 
ete and the A register holding +00 for a header block, or +FF for a program/data 
block. 


THE ‘SA-BYTES’ SUBROUTINE 
This subroutine is called to SAVE the header information (fi og8A 
actual program/data block (from O99E). : om pete TEC 


04C2 SA-BYTES LD HL,+053F Pre-load the machine stack with 

PUSH HL the address — SA/LD-RET. 

LD HL,+1F80 This constant will give a leader 
of about 5 secs. for a ‘header’. 

BIT 7A Jump forward if SAVEing a 

JR Z,04D0,SA-FLAG header. 

LD HL,+0C98 This constant will give a leader 
of about 2 secs. for a program/ 
data block. 

04D0 SA-FLAG EX AF,A'F’ The flag is saved. 

INC ‘DE The ‘length’ is incremented 

DEC 1x and the ‘base address’ reduced 
to allow for the flag. 

DI The maskable interrupt is 
disabled during the SAVE. 

LD A,+02 Signal ‘MIC on’ and border to 
be RED. 

LD B,A Give a value to B. 


A loop is now entered to create the pulses of the leader. Both the ‘MIC on’ and the 
‘MIC off’ pulses are 2,168 T states in length. The colour of the border changes from 
RED to CYAN with each ‘edge’. 


Note: An ‘edge’ will be a transition either from ‘on’ to ‘off’, or from ‘off’ to ‘on’. 
04D8 SA-LEADER DJNZ 04D8,SA-LEADER The main timing period. 


OUT (+FE),A MIC on/off, border RED/CYAN, 
< Kor +0F on each pass. 
R cA 4% 7LD BAAS Vy Y The main timing constant. 
DEC Decrease the low counter. 


JR NZ,04D8,SA-LEADER Jump back for another pulse. 
DEC 8B Allow for the longer path 
(— reduce by 13 T states). 
H Decrease the high counter. 
JP P,04D8,SA-LEADER Jump back for another pulse 
until completion of the leader. 


A sync pulse is now sent. 


Lo B#2F WX? 
‘O4EA SA-SYNC-1 DJNZ 04EA,SA-SYNC-1 MIC off for 667 T states from 
‘OUT to ours = 
r iT (+FE)A MIC on an ; ; 
i pp - : Signal MIC off & CYAN’. 
LD B,+37 MIC on fat = T states from 
2 SA-SYNC-2 DJNZ 04F2,SA-SYNC-2 ‘OUT to OUT’. 
in OUT (+FE),A Now MIC off & border CYAN. 


rv, program/data flag will be the first byte to be SAVEd. 
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For example, therefore, when awaiting the sync pulse (see LD-SYNC at 058F) allow- 
ance is made for ten additional passes through the sampling loop. The search is thereby 
for the next edge to be found within, roughly, 1,100 T states (465 + 10 * 58 + overhead). 
This will prove successful for the sync ‘off’ pulse that comes after the long ‘leader pulses’. 


THE ‘SAVE, LOAD, VERIFY & MERGE’ COMMAND ROUTINES 

The entry point SAVE-ETC is used for all four commands. The value held in T-ADDR 
however distinguishes between the four commands. The first part of the following 
routine is concerned with the construction of the ‘header information’ in the work 


space. 
0605 SAVE-ETC 


0621 SA-SPACE 


0629 SA-BLANK 


Report F — Invalid file name 


AF 
AAT-ADDR-lo) 
+E0 
(T-ADDR-lo),A 


1C8C,EXPT-EXP 


2530,SYNTAX-Z 
Z,0652,SA-DATA 
BC,+0011 
BCREOR -lo) 
Z,0621 ,SA-SPACE 
C,+22 
0030,BC-SPACES 


0629,SA-BLANK 
(1X+01) +FE 
2BF1,STK-FETCH 


HL,+FFF6 


NC,064B,SA-NAME 
AAT-ADDR-lo) 

A 
NZ,0644,SA-NULL 


Drop the address — SCAN-LOOP. 
Reduce T-ADDR-lo by +E0; 
giving +00 for SAVE, +01 for 
LOAD, +02 for VERIFY and 
+03 for MERGE. 

Pass the parameters of the 
‘name’ to the calculator stack. 
Jump forward if checking 
syntax. 

Allow seventeen locations 

for the header of a SAVE but 
thirty four for the other 
commands. 


The required amount of space is 
made in the work space. 
Copy the start address to the 
IX register pair. 

A program name can have 

up to ten characters but 

first enter eleven space 
characters into the prepared 
area. 

A null name is +FF only. 

The parameters of the name 
are fetched and its length is 
tested. 

This is ’-10’. 

In effect jump forward if the 
length of the name is not 

too long. (i.e. No more than 
ten characters.) 

But allow for the LOADing, 
VERIF Ying and MERGEing of 
Programs with ‘null’ names or 
extra long names. 


Call the error handling 
routine, 


Jump forward if the name 
has a ‘null’ length, 


But truncate longer names. 


Copy the start address to the 
HL register pair. 

Step to the second location. 

Switch the pointers over and 


0642 REPORT-F RST 0008,ERROR-1 
DEFB +0E 
Continue to handle the name of the program. 
0644 SA-NULL LD A.B 
OR Cc 
JR Z,0652,SA-DATA 
LD BC,+000A 
The name is now transferred to the work space (second location onwards). 
064B SA-NAME PUSH 1X 
5 POP HL 
INC HL 
Ex DE,HL 
LDIR 
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copy the name. 


THE SCREEN & PRINTER HANDLING ROUTINES 


THE ‘PRINT-OUT’ ROUTINES 

All of the printing to the main part of the screen, the lower part of the screr 

printer is handled by this set of routines. 4 : Se cee 
The PRINT-OUT routine is entered with the A register holding the code for a control 

character, a printable character or a token. 


O9F4 PRINT-OUT CALL 0OB03,PO-FETCH 


THE 
addre: 


OA11 
OA12 
OA13 
OA14 
OA15 
OA16 
OA17 
OA18 
OA19 


THE 


cP +20 
JP NC,OAD9,PO-ABLE 
cP +06 
JR C,0A69,PO-QUEST 
cP +18 


JR NC,OA69,PO-QUEST 
LD HL,+0A0B 


LD E.A 
LD D,+00 
ADD HL,DE 
LD E,(HL) 
ADD HL,DE 
PUSH HL 


JP OB03,PO-FETCH 


“CONTROL CHARACTER’ TABLE 

ss Offset character address 
4E PRINT comma OAIA 
57 EDIT OA1B 
10 cursor left OAIC 
29 cursor right OA1D 
54 cursor down OAIE 
53 cursor up OAIF 
52 DELETE 0A20 
37 ENTER 0A21 
50 not used 0A22 

“CURSOR LEFT’ SUBROUTINE 


. 


The current print position. 

If the code represents a 
Printable character then jump. 
Print a question mark for 
codes in the range +00 — +05. 
And also for codes +18 — +1F. 


Base of ‘control’ table. 
Move the code to the 
DE register pair. 

Index into the table and 
fetch the offset. 

Add the offset and make 
an indirect jump to the 
appropriate subroutine. 


offset character 


4F not used 

5F INK control 

SE PAPER control 
5D FLASH control 
5C BRIGHT control 
5B INVERSE control 
5A OVER control 

54 AT control 

53 TAB control 


The subroutine is entered with the B register holding the current line number and the C 
register with the current column number. 


0A23 


PO-BACK-1 INC c 
LD A,+22 
cP Cc 


Move leftwards by one column. 
Accept the change unless 
up against the lefthand side. 


JR NZ,0A3A,PO-BACK-3 


BIT 1,(FLAGS) 
JR NZ,0A38,PO-BACK-2 
B 


INC 
LD C,+02 
LD A,+18 


, DEC 8B 
PO-BACK-2 LD G2 


0A38 fi 
OA3A PO-BACK-3 = JP ODD9,CL-SET 


‘CURSOR RIGHT’ SUBROUTINE _ 
ey performs an operation identical to 


LD A,(P-FLAG) 
PUSH AF 
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If dealing with the printer 
jump forward. 

Go up one line. 

Set column value. 

Test against top line. 

Note: This ought to be +19. 


B 
JR NZ,0A3A,PO-BACK-3 Accept the change unless at 


the top of the screen. 
Unacceptable so down a line, 
Set to lefthand column. — 
Make an indirect return via 
CL-SET & PO-STORE. 


the BASIC statement — PRINT 


Fetch P-FLAG and save it on 
the machine stack. 


LD A,H Jump forward and hence round 


AND +07 the loop again directly for the 
JR N2,0EC9,COPY-2 eight pixel lines of a character 
line. 


For each new line of characters the base address has to be updated, 


LD AL Fetch the low byte. 

ADD A,+20 Update it by +20 bytes. 

LD LA The carry flag will be reset when 
‘within thirds’ of the display. 

CCF Change the carry flag. 

SBC AA The A register will hold +F8 

AND +F8 when within a ‘third’ but +00 
when a new ‘third’ is reached. 

ADD A,H The high byte of the 

LD HA address is now updated. 

OEC9 COPY-2 DJNZ OEB2,COPY-1 Jump back until ‘176’ lines have 

been printed. 

JR OEDA,COPY-END Jump forward to the end 
routine. 


THE ‘COPY-BUFF’ SUBROUTINE 


This subroutine is called whenever the printer buffer is to have its contents passed to the 


printer. 
OECD COPY-BUFF DI Disable the maskable interrupt. 
LD HL,+5B00 The base address of the printer 
buffer. 
LD B,+08 There are eight pixel lines. 
OED3 COPY-3 PUSH BC Save the line number. 
CALL OEF4,COPY-LINE It is called ‘8’ times. 
PoP BC Fetch the line number. 
DJNZ OED3,COPY-3 Jump back until ‘8’ lines 


have been printed. 
Continue into the COPY-END routine. 


OEDA COPY-END LD A104 Stop the printer motor. 
OUT (+FB),A 
El Enable the maskable interrupt 


= and continue into CLEAR-PRB. 
THE ‘CLEAR PRINTER BUFFER’ SUBROUTINE 


The printer buffer is cleared by calling this subroutine. 


OEDF CLEAR-PRB LD HL,+5B00 ie bese address of the printer 
buffer. 
LD (PR-CC),L Reset the printer ‘column’. 
xXOR A Clear the A register. 
LD BA Also clear the B register (in 
effect B holds dec 256). 
OEE7 PRB-BYTES LD (HL),A The ‘256’ bytes of the 
INC HL printer buffer are all 
DJNZ OEE7,PRB-BYTES cleared in turn. 
RES 1,(FLAGS2) Signal ‘the buffer is empty’. 
LD G21) Set the printer position and 
JP ODD9,CL-SET return via CL-SET & PO-STORE. 
THE ‘COPY-LINE’ SUBROUTINE 


The subroutine is entered with the HL register pair holding the base address of the thirty 
two bytes that form the pixel-line and the B register holding the pixel-line number. 


OEF4 COPY-LINE LD A,B Copy the pixel-line number. 
cP +03 The A register will hold 
: SBC AA +400 until the last two lines 


AND +402 are being handled. 
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LD D,+00 Fetch .the duration of the 


LD E, (PIP) keyboard click. 

LD HL,+00C8 And the pitch. 

CALL 03B5,BEEPER Now make the ‘pip’. 

POP AF Restore the code. 

LD HL,+0F38 Pre-load the machine stack 

PUSH HL with the address of ED-LOOP. 
Now analyse the code obtained. 

cP +18 Accept al| character codes, 

JR NC,OF81,ADD-CHAR graphic codes and tokens. 

CP +07 Also accept ',’. 

JR C,0F81,ADD-CHAR 

cP +10 Jump forward if the code 


JR C,0F92,ED-KEYS represents an editing key. 
The control keys — INK to TAB — are now considered. 


LD BC,+0002 INK & PAPER will require 
two locations. 

LD DA Copy the code to D. 

cP +16 Jump forward with INK & 


JR C,OF6C,ED-CONTR PAPER’ 
AT & TAB would be handled as follows: 


INC BC Three locations required. 
BIT 7,(FLAGX) Jump forward unless dealing 
JP Z,101E,ED-IGNORE with INPUT LINE... . 
CALL 15D4,WAIT-KEY Get the second code. 
LD EA and put it in E. 

The other bytes for the contro! characters are now fetched. 

OF6C ED-CONTR CALL 15D4,WAIT-KEY Get another code. 
PUSH DE Save the previous codes. 
LD HL,(K-CUR) Fetch K-CUR. 
RES 0,(MODE) Signal ’K mode’. 
CALL 1655,MAKE-ROOM Make two or three spaces. 
POP BC Restore the previous codes. 
INC AL Point to the first location. 
LD (HL),B Enter first code. 
INC HL Then enter the second code 
LD (HL),C which will be overwritten if 


there are only two codes — i.e. 
with INK & PAPER. 
JR OF8B,ADD-CH-1 Jump forward. 


THE ‘ADD-CHAR’ SUBROUTINE 
This subroutine actually adds a code to the current EDIT or INPUT line. 


OF81 ADD-CHAR RES 0,(MODE) Signal ‘K mode’. 
LD HL,(K-CUR) Fetch the cursor position. 
CALL 1652,ONE-SPACE Make a single space, 

OF8B ADD-CH-1 LD (DE),A Enter the code into the space 
INC DE and signal that the cursor is to 
LD (K-CUR),DE occur at the location after, Then 
RET return indirectly to ED-LOOP. 

The editing keys are dealt with as follows: 

OF92 ED-KEYS LD E,A The code is transferred to 
LD D,+00 the DE register pair. 
LD HL,+0F99. The base address of the editing 

key table. 
ADD HL,DE The entry is addressed and 
LD E,(HL) then fetched into E. 
ADD HL,DE The address of the handling 
i 61 


ROE Heel ),HL 
Fetch the former channel 
Pere 1615,CHAN-FLAG address andl aee the i 
appropriate flags before 
returning to ED-LOOP. 


_ THE ‘CURSOR DOWN EDITING’ SUBROUTINE 


a OFF ED-DOWN BIT 5,(FLAGX) Jump fi rd if i 
¥ JR —-NZ,1001,ED-sTOP "INPUT" mode. 
= LD HL,+5¢49 This is E-PPC. 
@ CALL 190F,LN-FETCH The next line number is found 
y JR 10G6E,ED-LIST and a new automatic listing 
ies Produced. 
1001 ED-STOP LD (ERR-NR),+10 ‘STOP in INPUT’ report. 
Es JR 1024,ED-ENTER Jump forward. 
bg? 
_ THE CURSOR LEFT EDITING’ SUBROUTINE 
4007 ED-LEFT CALL 1031,ED-EDGE The cursor is moved. 
; JR 1011,ED-CUR Jump forward. 
THE ‘CURSOR RIGHT EDITING’ SUBROUTINE 
; oc ED-RIGHT LD A,(HL) The current character is tested 
cP +0D and if it is ‘carriage return’ 
2 Met 2 then return. 
INC HL Otherwise make the cursor 
ss come after the character. 
1 ED-CUR aoe (K-CUR),HL Set the system variable K-CUR_ 
E ‘DELETE EDITING’ SUBROUTINE 
N15 ED-DELETE CALL 1031,ED-EDGE Move the cursor leftwards. 
LD BC,+0001 Reclaim the current 
a JP 19E8,RECLAIM-2 character. 
IE ‘ED-IGNORE’ SUBROUTINE 


101E ED-IGNORE CALL 15D4,WAIT-KEY The next two codes from the 
CALL 15D4,WAIT-KEY key-input routine are ignored. 


“ENTER EDITING’ SUBROUTINE 


ED-ENTER POP HL The address of ED-LOOP and 
POP HL ED-ERROR are discarded. 
-ED-END POP HL The old value of ERR-SP 
LD (ERR-SP),HL is restored. 
BIT  7,\ERR-NR) Now return if there were 
RET NZ no errors. 
LO SP,HL Otherwise make an indirect 
RET jump to the error routine. 
‘ED-EDGE’ SUBROUTINE 


ss ‘or is in the HL register pair and will be decremented unless the 
eget start of the line. Care is taken not to put the cursor between 


ready at the 
rs and their parameters. 
DE will hold either E-LINE 


SCF I 
f ,SET-DE (for editing) or WORKSP 
eee (for NEU Togs Ree ‘ 
The carry flag wi me se 
ee Eee if the cursor Is already to be at 
the start of the line. 
Ne. ae Correct for the subtraction, 
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Cancel the error number and 
give a ‘rasp’ before going 
around the editor again. 


LD (ERA-NR) +FF 
D,+00 


Lb E,(RASP) 

LD HL,+1A90 
CALL 03B5,BEEPER 
JP OF30,ED-AGAIN 


“CLEAR-SP’ SUBROUTINE 
rhe editing area or the work space is cleared as directed. 


CLEAR-SP. PUSH HL Save the pointer to the space. 


CALL 1190,SET-HL ae will point to the first 
aracter and HL the last. 
DEG. .HL The correc i 
CALL 19E5,RECLAIM-1 reclaimed. Renee 
LD (K-CUR),HL The system variables K-CUR 
LD (MODE),+00 and MODE ('K mode’) are 
POP HL initialised before fetching 
RET the pointer and returning. 


*KEYBOARD INPUT’ SUBROUTINE 
; important subroutine returns the code of the last key to have been pressed but note 
CAPS LOCK, the changing of the mode and the colour contro! parameters are 
within the subroutine. 


3,(TV-FLAG) Copy the edit-line or the 
CALL NZ,111D,ED-COPY _ INPUT-line to the screen if 
the mode has changed. 


AND A Return with both carry 

BIT 5,(FLAGS) and zero flags reset if no 
RET) re new key has been pressed. 
LD A,\LAST-K) Otherwise fetch the code and 
RES 5,(FLAGS) signal that it has been taken, 
PUSH AF Save the code temporarily. 
BIT 5,(TV-FLAG) Clear the lower part of the 


CALL NZ,OD6E,CLS-LOWER display if necessary; 
e.g. after ‘scroll?’; 


ROR AG Fetch the code. 

cp +20 Accept all characters and 

JR NC,111B,KEY-DONE token codes. 

cP +10 Jump forward with most of 
JR NC,10FA,KEY-CONTR the control character codes. 
cP +06 Jump forward with the ‘mode’. 


JR NC,10DB,KEY=M&CL codes and the CAPS LOCK code. 


LD BA Save the eas 
AND +01 Keep only bit 0.” 
LD CA C holds +00 (= OFF) or 
Cc holds sol (= ON). 
A,B Fetch the code. 
sen Rotate it once (losing bit 0). 


ADD A,+12 Increase it by +12 giving for 
I KEY-DATA FLASH - +12, BRIGHT - +13 
Borat 9 and INVERSE - +14. 


‘code and the mode codes are dealt with ‘locally’. 
NZ,10E6,KEY-MODE Jump forward with ‘mode’ codes. 


+5C6 This is FLAGS2. 
tag i. Flip bit 3 of FLAGS2. This is 
(HL) the CAPS LOCK flag. 


rward. 
Check the lower limit. 


‘ ‘WoetKev ac Jump fo! 


LD HL,(ECHO-E) Push the value of ECHO-E 
eee HL On to the stack, 

Make HL point to the start 
CALL 1195,SET-HL f thi 
Ee iste of the space and DE the end. 


CALL 187D,OUT-LINE2 Now print the line. 


EX DE,HL Exchange the pointers an 

CALL 18E1,OUT-CURS print the ‘utsor: ‘i 

LD HL,(S-POSNL) Next fetch the current value 

EX (SP),HL of S-POSNL and exchange it 
with ECHO-E, 

EX DE,HL Pass ECHO-E to DE. 

CALL OD4D,TEMPS Again fetch the permanent 
colours. 


The remainder of any line that has been started is now completed with spaces printed 
with the ‘permanent’ PAPER colour. 
4150 ED-BLANK LD A,(S-POSNL-hi) Fetch the current lina number 
SUB D and subtract the old line number. 
JR C,117C,ED-C-DONE Jump forward if no ‘blanking’ 
of lines required. 
JR NZ,115E,ED-SPACES Jump forward if not on the 


same line. 

LD A,E Fetch the old column number 

SUB = (S-POSNL-lo) and subtract the new column 
number. 

JR NC,117C,ED-C-DONE Jump if no spaces required. 

115E ED-SPACES LD A,+20 A ‘space’. 
PUSH DE Save the old values. 
CALL O9F4,PRINT-OUT Print it. 
4 POP DE Fetch the old values. 


JR 1150,ED-BLANK Back again. 

New deal with any errors. 

1167 ED-FULL LD ——D,400 Give out a ‘rasp’. 
LD E,(RASP) 


LD HL,+1A90 
CALL O3B5,BEEPER 


LD (ERR-NR),+FF Cancel the error number. 

LD DE,(S-POSNL) Fetéh the current value of 

JR 117E,ED-C-END S-POSNL and jump forward. 
The normal exit upon completion of the copying over of the edit or the INPUT line. 
117 ED-C-DONE POP DE The new position value. 
‘ POP HL The ‘error address’. 


But come here after an error. 


‘WE ED-C-END POP HL The old value of ERR-SP is 
LD (ERR-SP),HL restored. 


Pi B Fetch the old value of 
wa é S-POSNL. fi i 
D Save the new position values. 
CALL ODD9,CL-SET Set the system variables. 
POP HL The old value of S-POSNL 
LD (ECHO-E),HL goes into ECHO-E. 
LD (X-PTR-hi),+00 X-PTR is cleared ina 
RET suitable manner and the return 
made. 


" AND ‘SET-DE’ SUBROUTINES Ned 
“Shedd pr sue to the first location and DE the ‘last’ location 


editing area or the work space. 
LD HL,(WORKSP) Point to the last location 
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lag says it is unnece 
" cl lower part any 
PE t ees! PIGtS x 
or ne Al lial 
¥ a 
; 
I 1 


ADD HL,DE Form the required address in 
this area. 


THE ‘CHAN-FLAG’ SUBROUTINE 
The appropriate flags for the different channels are set by this subroutine. 


1615 CHAN-FLAG LD (CURCHL),HL The HL register pair holds the 
base address for a particular 
channel, 

RES  4,(FLAGS2) Signal ‘using other than channel 

INC HL Step past the output 

INC HL and the input addresses and 

INC HL make HL point to the 

INC HL channel code. 

LD C,(HL) Fetch the code. 

LD HL,+162D The base address of the ‘channel 
code look-up table’. 

CALL 16DC,INDEXER Index into this table and locate 
the required offset; but return if 

RET NC there is not a matching channel 
code. 

LD D,+00 Pass the offset to the 

LD E,(HL) DE register pair. 

ADD HL,DE Jump forward to the appropriate 

162C CALL-JUMP JP (HL) flag setting routine. 

THE ‘CHANNEL CODE LOOK-UP’ TABLE 

162D DEFB 4B O06 — _ channel ‘kK’, offset +06, address 1634 

162F DEFB 53 12 —_ channel’s', offset +12 address 1642 

1631 DEFB 50 1B — _ channel ‘P’, offset +1B address 164D 

1633 DEFB 00 — end marker. 


THE ‘CHANNEL ‘K’ FLAG’ SUBROUTINE 


1634 CHAN-K SET 0,(TV-FLAG) Signal ‘using lower screen’. 
RES 5,(FLAGS) Signal ‘ready for a key’. 
SET 4,(FLAGS2) Signal “using channel 'K’ ’. 
JR 1646,CHAN-S-1 Jump forward. 
THE ‘CHANNEL ‘S’ FLAG’ SUBROUTINE if 
1642 CHAN-S RES 0,(TV-FLAG) Signal ‘using main screen’. 
1646 CHAN-S-1 RES  1,(FLAGS) Signal ‘printer not being used’. 
JP OD4D,TEMPS Exit via TEMPS so as to set the 


colour system variables. 


_ THE ‘CHANNEL ‘P’ FLAG’ SUBROUTINE 
164D CHAN-P SET  1,(FLAGS) Signal ‘printer in use’. 
. RET 
E ‘MAKE-ROOM’ SUBROUTINE 
very important eens. It is called on many occasions to ‘open up" an area. 
ase HL register pair points to the location after hae lace where ‘room’ is 
7 ir holds the length of the ‘room’ ni t 
- Peat nals pisaired ee subroutine is entered at ONE-SPACE. 
40001 Just the single extra location 
ake sort is required. 
CALL tre sae owe is sufficient 
sure that there is suffic 
; ap ieee memory available for the task 
being undertaken. 
Restore the pointer. 


| en mi ! a id it th 
2 i Oo 5 


j 


ADD HL,DE Reform the old value of 
Bie DE,HL STKEND and pass if to DE 


before returning. 


THE ‘COLLECT A LINE NUMBER’ SUBROUTINE 

On entry the HL register pair Points to the location under consideration. If the location 
holds a value that constitutes a suitable high byte for a line number then the line number 
js returned in DE. However if this is not so then the location addressed by DE is tried 
instead; and should this also be unsuccessful line number zero is returned, 


F LINE-ZERO DEFB +00 i 

168 DEFB 100 Line number zero. 

1961 LINE-NO-A Ex DE,HL Consider the other pointer. 
LD DE,+168F Use line number zero. 

The usual entry point is at LINE-NO. 

1695 LINE-NO LD AAHL) Fetch the high 
AND +CO test it. er tA 
JR NZ,1691,LINE-NO-A Jump back if not suitable. 
LD DAHL) Fetch the high byte. 
INC HL 
LD E,(HL) Fetch the low byte and 
RET return. 


THE ‘RESERVE’ SUBROUTINE 
This subroutine is normally called by using RST 0030,BC-SPACES. 

On entry here the last value on the machine stack is WORKSP and the value above it 
is the number of spaces that is to be ‘reserved’. 

This subroutine always makes ‘room’ between the existing work space and the 
calculator stack. 


169E RESERVE LD HL,(STKBOT) Fetch the current value of 

DEC HL STKBOT and decrement it to 
get the last location of the 
work space. 

CALL 1655,MAKE-ROOM Now make ‘BC spaces’. 

INC HL Point to the first new space 

INC HL and then the second. 

POP BC Fetch the old value of 

LD (WORKSP),BC WORKSP and restore it. 

POP BC Restore BC — number of spaces. 

EX DE,HL Switch the pointers. 

INC HL Make HL point to the first of 
the displaced bytes. 

RET Now return. 


Note: It can also be considered that the subroutine returns with the DE register pair 
Pointing to a “first extra byte’ and the HL register pair pointing to a ‘last extra byte’, 
extra bytes having been added after the original ‘(HL)+1' location. 


THE ‘SET-MIN’ SUBROUTINE : ae 
This subroutine resets the editing area and the areas after it to their minimum sizes. In 


ect it ‘clears’ the areas. 


1680 SET. HL,(E-LINE) Fetch E-LINE. 
lege tb (Hi) 10D Make the editing area hold 
LD (K-CUR),HL only the ‘carriage return’ 
INC HL character and the end marker. 
LD (HL),+80 
INC) HL Move on to clear the work 
if LO (WORKSP),HL space. 
re will ‘clear’ the work space and the calculator stack. 
WORK oL HL,(WORKSP) Fetch WORKSP. 
s tb (STKBOT),HL This clears the work space. 
oy: ag OR 


LD HL,(CHANS) Fetch the base address of the 

ADD HL,BC channel information area and 
{ find the channel data for the 
k stream being CLOSEd. 


INC HL Step past the subroutine 
INC HL addresses and pick up 
INC HL the code for that channel. 
LD C,(HL) 
EX DE,HL Save the pointer. 
LD HL,+1716 The base address of the ‘CLOSE 
stream look-up’ table. 
CALL 16DC,INDEXER Index into this table and locate 
the required offset. 
LD ¢,(HL) Pass the offset to the BC 
LD B,+00 register pair, 
ADD HL,BC Jump forward to the 
JP (HL) appropriate routing. 
THE ‘CLOSE STREAM LOOK-UP’ TABLE 
1716 DEFB 4B O05 — _ channel ’K’, offset +05, address 171C 
1718 DEFB 53 03 — channel ‘S', offset +03, address 171C 
171A DEFB 50 01 — _ channel 'P’, offset +01, address 171C 


Note: There is no end marker at the end of this table. 


THE ‘CLOSE STREAM’ SUBROUTINE 
171C CLOSE-STR POP HL Fetch the channel information 
RET Pointer and return. 


THE ‘STREAM DATA’ SUBROUTINE 


This subroutine returns in the BC register pair the stream data for a given stream. 


171E STR-DATA CALL 1£94,STK-TO-A The given stream number is 
taken off the calculator stack. 
cP +10 Give an error if the stream 


JR C,1727,STR-DATA1 number is greater than +0F. 
Report O — Invalid stream 


1725 REPORT-O RST 0008,ERROR-1 Call the error handling 
DEFB +17 routine. 
Continue with valid stream numbers. 
1727 STR-DATA1 ADD A,+03 Range now +03 to +12; 
RLCA and now +06 to +24. 
LD HL,+5C10 The base address of the 
stream data area. 
LD CA Move the stream code to the 
LD B,+00 BC register pair. 
ADD HL,BC Index into the data area 
LD C,(HL) and fetch the two data bytes 
INC HL into the BC register pair. 
LD B,(HL) 
| DEC HL Make the pointer address the 
RET first of the data bytes before 
returning. 


‘OPEN #” COMMAND ROUTINE 


allows the ay to OPEN streams. A channel code must be supplied and it 
g's! (Po) 
wes sone a is made to give streams +00 or +03 their initial data. 
RST 0028,FP-CALC Use the CALCULATOR. 
»DEFB +01,exchange Exchange the stream number 


rl 


bi 


1795 AUTO-LIST LD 


77¢ DEFB 53 08 — channel ‘s’, 


1 offset +08, address 1785 
77—E DEFB 50 OA — channel 'P’, 
bas Bere 00 aac one marae offset +0A, address 1789 
THE ‘OPEN-K’ SUBROUTINE 
1781 OPEN-K Lo E,401 Th 
JR 178B,OPEN-END & +00. See canard 
THE ‘OPEN-S’ SUBROUTINE 
4785 OPEN-S LD E406 The data ill 
JR 178B, OPEN-END & +00. Peete tae 
THE ‘OPEN-P’ SUBROUTINE 
1789 OPEN-P LD E410 ae data bytes will be +10 
+00. 
178B OPEN-END DEC BC Decrease the length of the 
LD A.B expression and give an error 
OR c if it was nota single 
JR NZ,1765,REPORT-F character; otherwise clear the 
LD DA D register, fetch HL and 
POP HL return. 
RET 


THE ‘CAT, ERASE, FORMAT & MOVE’ COMMAND ROUTINES 
In the standard SPECTRUM system the use of these commands leads to the production 
of report O — Invalid stream. 


1793 CAT-ETC. JR 1725,REPORT-O 


THE ‘LIST & LLIST’ COMMAND ROUTINES 

The routines in this part of the 16K program are used to produce listings of the current 
BASIC program. Each line has to have its line number evaluated, its tokens expanded 
and the appropriate cursors positioned. 

\ The entry point AUTO-LIST is used by both the MAIN EXECUTION routine and 

the EDITOR to produce a single page of the listing. 


(LIST-SP),SP 


Give this report. 


The stack pointer is saved 
allowing the machine stack to 
be reset when the listing is 
finished. (see PO-SCR,OC55) 
Signal ‘automatic listing in the 
main screen’. 

Clear this part of the screen. 
Switch to the editing area. 


LD (TV-FLAG),+10 
ODAF,CL-ALL 


. 


A 
HL,DE 


PAS FroDorHno 
Paps Paes? ae 
Sate 

Rods 

: 

oO 

8 


screen. 


HL,DE 
C,17E1,AUTO-L-2 
a now to be altered to give a listing with the ‘current’ line 
ac ie 


Now clear the lower part 

of the screen as well. 

Then switch back. 

Signal ‘screen is clear’. 

Now fetch the ‘current’ line 
number and the ‘automatic’ 
line number. 

If the ‘current’ number is 

less than the ‘automatic’ 
number then jump forward to 
update the ‘automatic’ number. 


Come here if the stream was unaltered, 


qg1F LIST-4 
1822 LIST-5 


CALL 
CALL 


LD 


1CDE,FETCH-NUM 
1BEE,CHECK-END 


1€99,FIND-INT 
AB 

+3F 

HA 

mG 

(E-PPC),HL 
196E,LINE-ADDR 


E+01 


Fetch any line or use zero if 
none supplied. 

If checking the syntax of the 
edit-line move on to the next 
statement. 

Line number to BC. 

High byte to A. 

Limit the high byte to the 
correct range and pass the 
whole line number to HL. 
Set E-PPC and find the address 
of the start of this line or the 
first line after it if the actual 
line does not exist. 

Flag ‘before current line’. 


Now the controlling loop for printing a series of lines is entered. 


1835 LIST-ALL 


CALL 
RST 
BIT 


1855,OUT-LINE 
0010,PRINT-A-1 
4,(TV-FLAG) 
Z,1835,LIST-ALL 
A,(DF-SZ) 
(S-POSN-hi) 
NZ,1835,LIST-ALL 
E 

Zz 


HL 

DE 

HL,+5C6C 
190F,LN-FETCH 
DE 

HL 
1835,LIST-ALL 


Print the whole of a BASIC line. 
This will be a ‘carriage return’. 
Jump back unless dealing 

with an automatic listing. 

Also jump back if there is 

still part of the main screen 

that can be used, 

A return can be made at this 
point if the screen is full and the 
current line has been printed 
(E= +00). 

However if the current line is 
missing from the listing 

then S-TOP has to be updated 
and a further line printed 

(using scrolling). 


THE ‘PRINT A WHOLE BASIC LINE’ SUBROUTINE 
The HL register pair points to the start of the line — the location holding the high byte 


of the line number. 


Before the line number is printed it is tested to determine whether it comes before 
the ‘current’ line, is the ‘current’ line or comes after. 


1855 OUT-LINE 


LD 
CALL 
LD 
JR 

LD 


RL 


BC ,(E-PPC) 
1980,CP-LINES 
D+3E 
Z,1865,0UT-LINE1 
DE,+0000 


E 


(BREG),E 
A,(HL) 
+40 

BC 

NC 


B 
1A28,0U T-NUM-2 


Fetch the ‘current’ tine 
number and compare it, 
Pre-load the D register with the 
current line cursor, 

Jump forward if printing the 
‘current’ line. 

Load the D register with zero 
(it is not the cursor) and 

set E to hold +01 if the line is 
before the ‘current’ line and +00 
if after. (The carry flag comes 
from CP-LINES,) 

Save the line marker, 

Fetch the high byte of the 

line number and make a full 
return if the listing has been 
finished. 


The line number can now be 
printed — with leading spaces. 


THE ‘PRINT A FLASHING CHARACTER’ SUBROUTINE 


The ‘error cursor’ and the ‘mode cursors’ are printed using this subroutine 


igc1 OUT-FLASH  EXX Save the current register. 
2 LD HL, (ATTR-T) Save the ATTH-T & MASK-T on 
PUSH HL the machine stack. 
RES 7,H Ensure that FLASH is 
SET TL active, 
LD (ATTR-T),HL Use these modified values 
for ATTR-T & MASK-T. 
LD HL,+5C91 This is P-FLAG. 
LD D,(HL) Save P-FLAG also on the 
PUSH DE machine stack. 
LD (HL),+00 Ensure INVERSE @, OVER @ 


and not PAPER 9 nor INK 9. 
CALL Pan OU: The character is printed. 


POP The former value of P-FLAG 
LD (P-FLAG),H is restored. 

POP HL The former values of ATTR-T 
LD (ATTR-T),HL & MASK-T are also restored 
EXX before returning. 

RET 


THE ‘PRINT THE CURSOR’ SUBROUTINE 


A return is made if it is not the correct place to print the cursor but if it is then either 
“C', ‘E', 'G’, 'K' or ‘L’ will be printed. 


18E1 OUT-CURS LD HL,(K-CUR) Fetch the address of the 
AND A cursor but return if the 
SBC HL,DE correct place is not being 
RET NZ considered. 
LD A,(MODE) The current value of MODE is 
RLC A fetched and doubled. 
JR Z,18F3,OUT-C-1 Jump forward unless dealing with 
Extended mode or Graphics. 
ADD A,+43 Add the appropriate offset to 
give ‘E’ or ‘G’. 
JR 1909,0UT-C-2 Jump forward to print it. 
18F3 OUT-C-1 LD HL,+5C3B This is FLAGS. 
RES 3,(HL) Signal ‘K-mode’. 
LD A,+4B The character ‘K’. 
BIT 2,(HL) Jump forward to print ‘K’ 
JR Z,1909,OUT-C-2 if ‘the printing is to be in 
K-mode’. 
SET 3.(HL) The ‘printing is to be in L-mode’ 


so signal ‘L-MODE’. 


INC A Form the character ‘L’ 
BIT 3,(FLAGS2) Jump forward if not in 
JR Z,1909,OUT-C-2 ‘C-mode’. 
; LD A,+43 The character 'C’. 
1909 OUT-C-2 PUSH DE Save the DE register pair 
“ey : CALL 18C1,OUT-FLASH whilst the cursor is printed 
POP DE — FLASHing. 
RET Return once it has been done. 
It is the action of considering which cursor-letter is to be printed that determines 


‘K' vs. ‘L/C’. 


TCH’ TIN ; 
Hide aa ne register pair addressing a system variable — S-TOP 


returns with the system variable holding the line number of the 


. (HL) The line number held by the 
ine Hl system variable is collected. 


TF 


shake 


5A OUT-CH-1 cP +22 Accept for printing all 
19 JR -NZ,1968,0UT-CH:2 characters except *”"’. 
AF Save the character code whilst 
changing the ‘quote mode’. 


LD A,(\FLAGS2) Fetch F 

MOR. 204 hee LAGS2 and flip 

LD (FLAGS2),A Enter the amended value and 

POP AF restore the character code. 
1968 OQUT-CH-2 SET 2,(FLAGS) Signal ‘the next character is 

to be printed in L-mode’. 

196D OUT-CH-3 RST 0010,PRINT-A-1 The present character is 

RET Printed before returning. 


; It is the consequence of the tests on the present character that determines whether 
the next character is to be “printed in ‘K' or ‘L’ mode’’. 
Also note how the program does not cater for ‘:’ in REM statements. 


THE ‘LINE-ADDR’ SUBROUTINE 
For a given line number, in the HL register pair, this subroutine returns the starting 
address of that line or the ‘first line after’, in the HL register pair, and the start of the 
revious line in the DE register pair, 
If the line number is being used the zero flag will be set. However if the ‘first line 
after’ is substituted then the zero flag is returned reset. 


196E LINE-ADDR PUSH HL Save the given line number. 
LD HL,(PROG) Fetch the system variable 
LD DH PROG and transfer the address 
LD se to the DE register pair. 


Now enter a loop to test the line number of each line of the program against the given 
line number until the line number is matched or exceeded, 


1974 LINE-AD-1 PoP Bc The given line number. 

CALL 1980,CP-LINES Compare the given line number 
against the addressed line 

RET NC number. Return if carry reset; 
PUSH BC otherwise address the next 
CALL 19B8,NEXT-ONE line’s number. 
EX DE.HL Switch the pointers and 
JR 1974,LINE-AD-1 jump back to consider the next 


line of the program. 


THE ‘COMPARE LINE NUMBERS’ SUBROUTINE : 
The given line number in the BC register pair is matched against the addressed line 
number, 


1980 CP-LINES LD AHL) Fetch the high byte of the 
i cp B addressed line number and 
RET NZ compare it. Return if they do 
not match, 
INC HL Next compare the low bytes. 
LD A AHL) Return with the carry flag 
DEC L set if the addressed line 
cP c number has yet to reach the 
RET given line number. 
TATEMENT’ SUBROUTINE 


has two distinct functions. 


| be used to find the ‘D’th. statement in a BASIC line — returning with the HL 
9 the location before the start of the statement and the zero 
‘i : 


can be os to find a statement, if any, that starts with a given 


date CH UD 
U C ij te 


INC HL 
LD AHL) 
JR NC,19CE,NEXT-0-2 


JR 19DB,NEXT-0-5 


long name is reached. 
Increment the pointer and 
fetch the new code, 

Jump back unless the previous 
code was the last code of the 
variable’s name, 

Now jump forward (BC = 
+0005 or +0012). 

Step past the low byte of the 
line number. 

Now point to the low byte 
of the length. 

Fetch the length into the 

BC register pair. 


Allow for the inclusive byte. 


Point to the first byte of the 
‘next’ line or variable. 


49D5 NEXT-0-3 INC HL 
49D6 NEXT-0-4 ING HL 
LD C,(HL) 
INC HL 
LD B,(HL) 
INC HL 
In all cases the address of the ‘next’ line or variable is found, 
19DB NEXT-0-5 ADD HL,BC 
POP DE 


THE ‘DIFFERENCE’ SUBROUTINE 


Fetch the address of the 
Previous one and continue into 
the ‘difference’ subroutine. 


The ‘length’ between two ‘starts’ is formed in the BC register pair. The pointers are 


reformed but returned exchanged. 


19DD DIFFER AND A 
SBC -HL,DE 
LD BH 
(Ere reisaa oo B 
ADD HL,DE 
EX DE|HL 
RET 


THE ‘RECLAIMING’ SUBROUTINE 


Prepare for a true subtraction. 
Find the length from one 
‘start’ to the next and pass 

it to the BC register pair. 
Reform the address and 
exchange them before 
returning. 


The entry point RECLAIM-1 is used when the address of the first location to be re- 
claimed is in the DE register pair and the address of the first location to be left alone is 
‘in the HL register pair. The entry point RECLAIM-2 is used when the HL register pair 
Points to the first location to be reclaimed and the BC register pair holds the number of 


the bytes that are to be reclaimed. 
19E5 RECLAIM-1 CALL 19DD,DIFFER 


19E8 RECLAIM-2 PUSH BC 


LD AB 
CPL 
LD BA 
LD Ac 
CPL 
LD C/A 


BC 
CALL 1664,POINTERS 
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Use the ‘difference’ subroutine 
to develop the appropriate 
values. 

Save the number of bytes to be 
reclaimed. 

All the system variable 
pointers above the area 

have to be reduced by ‘BC’ 

so this number is 2's 
complemented before the 
pointers are altered. 


Return the ‘first location’ 
address to the DE register 
pair and reform the address of 
the first location to be left. 
Save the ‘first location’ 

whilst the actual reclamation 
occurs. 

Now return, 


BASIC LINE AND COMMAND INTERPRETATION 


THE SYNTAX TABLES 
i. ‘set table 
ane Sot value for each of the fifty BASIC commands. 
command address command addres. 

1A48 DEFB+B1 DEF FN 1AF9 1A61 DEFB+94 BORDER TAFS 
1A49 DEFB+CB CAT 1B14 1A62 DEFB+56 CONTINUE j,gg 
1A4A DEFB+BC FORMAT 1B06 1A63 DEFB+3F DIM 1AA2 
1A4B DEFB+BF MOVE 1BOA 1A64 DEFB+41 REM 1AA5 
1A4C DEFB+C4 ERASE 1B10 1A65 DEFB+2B FOR 1A90 
1A4D DEFB+AF OPEN # 1AFC 1A66 DEFB+17 GOTO 1A7D 
1A4E DEFB+B4 CLOSE # 1B02. 1A67 DEFB+1F GOSUB 1A86 
1A4F DEFB+93 MERGE 1AE2 1A68 DEFB+37 INPUT 1AQSF 
1A50 DEFB+91 VERIFY 1AE1 1A69 DEFB+77 LOAD 1AEO 
1A51 DEFB+92 BEEP 1AE3 1A6A DEFB+44 LIST 1AAE 
1A52 DEFB+95 CIRCLE 1AE7 1A6B DEFB+OF LET 1A7A 
1A53 DEFB+98 INK 1AEB 1A6C DEFB+59 PAUSE 1AC5 
1A54 DEFB+98 PAPER 1AEC 1A6D DEFB+2B NEXT 1A98 
1A55 DEFB+98 FLASH 1AED 1A6E DEFB+43 POKE 1AB1 
1A56 DEFB+98 BRIGHT 1AEE 1AGF DEFB+2D PRINT 1A9C 
1A57 DEFB+98 INVERSE 1AEF 1A70 DEFB+51 PLOT 1AC1 
1A58 DEFB+98 OVER 1AFO 1A71 DEFB+3A RUN 1AAB 
1A59 DEFB+98 OUT 1AF1 1A72 DEFB+6D SAVE 1ADF 
1A5A DEFB+7F- LPRINT 1AD9 1A73 DEFB +42 RANDOMIZE 1AB5 
1A5B DEFB +81 LLIST 1ADC 1A74 DEFB+0D IF 1A81 
JASC DEFB+2E STOP 1A8A 1A75 DEFB+49 CLS TABE 
1A5D DEFB+6C READ 1ACQ9 1A76 DEFB+5C DRAW 1AD2 
JASE DEFB+6E DATA 1ACC 1A77 DEFB+44 CLEAR 1ABB 
1A5F DEFB+70 RESTORE 1ACF 1A78 DEFB+15 RETURN 1A8D 
1A60 DEFB+48 NEW 1AA8 1A79 DEFB+5D COPY 1AD6 


ii. The parameter table 

For each of the fifty BASIC commands there are up to eight entries in the parameter 
table. These entries comprise command class details, required separators and, where 
appropriate, command routine addresses. 


TATA P-LET DEFB +01 CLASS-01 
DEFB +3D ts! 
DEFB +02 CLASS-02 
1A7D P-GO-TO DEFB +06 CLASS-06 
DEFB +00 CLASS-00 
DEFB +67,#1E GO-TO,1E67 
1A81 P-IF DEFB +06 CLASS-06 
DEFB +CB ‘THEN ‘ 
DEFB +05 CLASS-05 
DEFB +FO,+1C_ IF,ICFO 
1A86 P-GO-SUB DEFB +06 CLASS-06 
DEFB +00 CLASS-00 
DEFB +ED,+1E GO-SUB,1EED 
1A8A P-STOP DEFB +00 CLASS-00 
DEFB +EE,+1C STOP,1CEE 
1A8D P-RETURN DEFB +00 CLASS-00 
DEFB +23,+1F RETURN,1F23 
1A90 P-FOR DEFB me CLASS-04 
+3D a 
+06 CLASS-06 
+CC eT? 
+06 CLASS-06 


+05 A 
403,410 FOR,1D03 


84 


1A98 P-NEXT DEFB +04 CLASS-04 


DEFB +00 CLASS-00 
DEFB +AB,+1D NEXT,1DAB 
1A9C P-PRINT DEFB +05 CLASS-05 
DEFB +CD,+1F PRINT,1FCD 
1A9F P-INPUT DEFB +05 CLASS-05 
DEFB +89,+20 INPUT,2089 
1Aa2 P-DIM DEFB +05 CLASS-05 
DEFB +02,+2C DIM,2C02 
{AA5 P-REM DEFB +05 CLASS-05 
DEFB +B2,+1B REM,1BB2 
1AA8 P-NEW DEFB +00 CLASS-00 
DEFB +B7,+11 NEW,11B7 
4AAB P-RUN DEFB +03 CLASS-03 
DEFB +A1,+1E RUN,1EA1 
JAAE P-LIST DEFB +05 CLASS-05 
DEFB +F9,4+17 LIST,17F9 
1AB1 P-POKE DEFB +08 CLASS-08 
DEFB +400 CLASS-00 
DEFB +80,+#1E POKE,1E80 
1AB5 P-RANDOM = DEFB +03 CLASS-03 
DEFB +4F,+1E RANDOMIZE,1E4F 
1AB8 P-CONT DEFB +00 CLASS-00 
DEFB +5F,41E CONTINUE,1E5F 
1ABB P-CLEAR DEFB +03 CLASS-03 
DEFB +AC,+1E CLEAR,1EAC 
1ABE P-CLS DEFB +00 CLASS-00 
DEFB +6B,+0D CLS,0D6B 
1AC1 P-PLOT DEFB +09 CLASS-09 
DEFB +00 CLASS-00 
DEFB +DC,t22 PLOT,22DC 
1AC5 P-PAUSE DEFB +06 CLASS-06 
DEFB +00 CLASS-00 
DEFB +3A,t1F PAUSE,1F3A 
1AC8 P-READ DEFB +05 CLASS-05 
DEFB +ED,#+1D READ,1DED 
1ACC P-DATA DEFB +05 CLASS-05 
DEFB +27,+1E DATA,1E27 
1ACF P-RESTORE DEFB +03 CLASS-03 
DEFB +42+1E RESTORE,1E42 
1AD2 P-DRAW DEFB +09 CLASS-09 
DEFB +05 CLASS-05 
DEFB +82,+23 DRAW,2382 
1AD6 P-COPY DEFB +00 CLASS-00 
DEFB +AC,+0E COPY,OEAC 
JAD9 P-LPRINT DEFB +05 CLASS-05 
DEFB +C9+1F LPRINT,1FC9 
1ADC P-LLIST DEFB +05 CLASS-05 
c DEFB +F5,417  LLIST,17F5 
1ADF P-SAVE DEFB +0B CLASS-0B 
TAEO P-LOAD DEFB +08 CLASS-0B 
1 P-VERIFY DEFB +08 CLASS-OB 
P-MERGE DEFB +08 CLASS-0B 
AES P-BEEP DEFB +08 CLASS-08 


+00 CLASS-00 
Bene BEEP ,03F8 
CLASS-09 
CLASS-05 
CIRCLE,2320 
CLASS-07 
CLASS-07 
CLASS-07 
CLASS-07 


CLASS-07 


AEF P-INVERSE  DEFB +07 
1aeb P-OVER DEFB +07 CLASS-07 
1AF1 P-OUT DEFB +08 CLASS-08 
DEFB +00 CLASS-00 
DEFB +7A,+1E dep aks 
DEFB +06 c 5 
1AF5 P-BORDER ERB ace eeeee oe 
DEFB +94,422 BORDER,2294 
-DEF- DEFB +05 CLASS-05 
Pace OTE ee DEFB +60,41F DEF-FN,1F60 
1AFC P-OPEN DEFB +06 CLASS-06 
DEFB +2C hits 
DEFB +0A CLASS-0A 
DEFB +00 CLASS-00 
DEFB +36,417 OPEN,1736 
1B02 P-CLOSE DEFB +06 CLASS-06 
DEFB +00 CLASS-00 
DEFB +E5,416 CLOSE,16E5 
1B06 P-FORMAT DEFB +0A CLASS-0A 
DEFB +00 CLASS-00 
DEFB +93,417  CAT-ETC,1793 
1BOA P-MOVE DEFB +0A CLASS-0A 
DEFB +2C aa 
DEFB +0A CLASS-0A 
DEFB +00 CLASS-00 
DEFB +93,417 CAT-ETC,1793 
1B10 P-ERASE DEFB +0A CLASS-0A 
DEFB +00 CLASS-00 
DEFB +93,417 CAT-ETC,1793 
1B14 P-CAT DEFB +00 CLASS-00 


DEFB +93,417 CAT-ETC,1793 
Note: The requirements for the different command classes are as follows: 
CLASS-00 — No further operands. 


CLASS-01 — Used in LET. A variable is required, 

CLASS-02 — Used in LET. An expression, numeric or string, must follow. 
CLASS-03  — A numeric expression may follow. Zero to be used in case of default 
CLASS-04 — Asingle character variable must follow. 

CLASS-05 — A set of items may be given. 

CLASS-06 — A numeric expression must follow. 

CLASS-07 — Handles colour items. 

CLASS-08 — Two numeric expressions, separated by a comma, must follow. 
CLASS-09 — As for CLASS-08 but colour items may precede the expressions. 
CLASS-OA — A string expression must follow. 

CLASS-OB — Handles cassette routines. 


THE ‘MAIN PARSER’ OF THE BASIC INTERPRETER 
The Parsing routine of the BASIC interpreter is entered at LINE-SCAN when syntax is 
being checked, and at LINE-RUN when a BASIC program of one or more statements 
is to be executed. 

Each statement is considered in turn and the system variable CH-ADD is used to 
Paint to each code of the statement as it occurs in the program area or the editing area. 


1817 LINE-SCAN RES 7,(FLAGS) Signal ‘syntax checking’. 
19FB,E-LINE-NO CH-ADD is made to point to the 
first code after any line number. 


A The system variable SUBPPC 
(SUBPPC),A is initialised to +00 and 

A ERR-NR to +FF, 
(ERR-NR),A 

1829,STMT-L-1 Jump forward to consider the 


first statement of the line. 
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NZ,1BEC,REPORT-N check the validity of the state- 


ment number — must be zero. 


min Also check that the ‘first 

BN Cane line after’ is not after the 

ty Ab actual ‘end of program’. 

JR Z,1BBF,LINE-USE Jump forward with valid 
addresses; otherwise signal the 
error ‘OK’. 

Report 0 — ‘OK’ 
0 REPORT-O RST 0008,ERROR-1 Use th i 
1BB DEFB +FF “ino 


‘Note: Obviously not an error in the normal sense — but rather a jump past the program. 


THE els Sontaleld pugley INE 
The return address to - is dropped which has the effect of forci 
the line to be ignored. effect of forcing the rest of 


1BB2 REM POP BC 
THE ‘LINE-END’ ROUTINE 


If checking syntax a simple return is made but when ‘running’ the address held by 
NXTLIN has to be checked before it can be used. 


Drop the address — STMT-RET. 


1BB3 LINE-END CALL 2530,SYNTAX-Z Return if syntax is being 
RET. 2 checked; otherwise fetch 
LD HL,ANXTLIN) the address in NXTLIN. 
LD A;«CO Return also if the address is 
AND (HL) after the end of the program 
RET NZ — the ‘run’ is finished. 
xXOR A Signal ‘statement zero’ before 

Proceeding. 
THE ‘LINE-USE’ ROUTINE 


This short routine has three functions; i. Change statement zero to statement ‘1’; ii. Find 
__ the number of the new line and enter it into PPC; & iii. Form the address of the start of 
‘the line after. 


1BBF LINE-USE cP +01 Statement zero becomes 
ADC A,+00 statement ‘1’ 
LD DAHL) The line number of the line 
INC HL to be used is collected and 
LD E,(HL) Passed to PPC. 
LD (PPC),DE 
INC HL Now find the ‘length’ 
LD E,(HL) of the line. 
INC) HL 
LD D,(HL) 
EX DE,HL Switch over the values. 

” ADD HL,DE Form the address of the start 

INC HL of the line after in HL and the 


-LINE’ R INE 
uct cer a to the lo 


ings 


@ program area and also to 


(NXTLIN).HL 


location before the ‘next’ line's 
first character in DE. 


cation after the end of the ‘next’ line to be 


he location before the first character of the line. 
ie Gee ‘a line in the editing area — where the 


tine again whilst there are still statements to be interpreted. 


Set NXTLIN for use once the 
current line has been completed. 
As usual CH-ADD points to the 


1¢10 CLASS-00 (= eae 


$¢11 CLASS-05 POP BC 


CALL Z,1BEE,CHECK-END 


EX DE,HL 


THE ‘JUMP-C-R’ ROUTINE 


14¢16 JUMP-C-R LD ~——-HL,(T-ADDR) 
LD C,(HL) 
INC) HL 
LD B,{HL) 
EX  DEHL 
PUSH BC 
RET 


THE ‘COMMAND CLASSES — 01, 02 & 04’ 
& NEXT and indirectly by READ & INPUT. 


READ or INPUT statement. 
1C1F CLASS-01 CALL 28B2,LOOK-VARS 


STRLEN. 
1022 VAR-A-1 LD —_ (FLAGX),+00 

JR ——_—NC,1C30,VAR-A-2 

SET 1,(FLAGX) 

JR ——-NZ,1C46,VAR-A-3 
Report 2 — Variable not found 

RST  0008,ERROR-1 


1C2E REPORT-2 
ee DEFB +01 


: Continue with the handling of existing variables. 
‘AR-A-2 CALL 2Z,2996,STK-VARS 


ei AFLAGS) 

om Ae eas VAR-AS 
A 

CALL 2530,SYNTAX-2 


|L.+5C71 


\LL_ NZ,2BF1,STK-FETCH 


The commands of class-OO must not have any operands. e.g. COPY & CONTINUE. 


Set the zero flag for later. 


Thecommands of class-05 may be followed by a set of iterns, e.g. PRINT & PRINT “222”. 


In all cases drop the address 

— SCAN-LOOP, 

If handling commands of classes 
00 & 03 AND syntax is being 
checked move on now to 
consider the next statement. 
Save the line pointer in the DE 
register pair. 


After the command class entries and the separator entries in the parameter table have 
een considered the jump to the appropriate command routine is made. 


Fetch the pointer to the 
entries in the parameter table 
and fetch the address of the 
required command routine. 
Exchange the pointers back 
and make an indirect jump 
to the command routine. 


These three command classes are used by the variable handling commands — LET, FOR 


Command class 01 is concerned with the identification of the variable in a LET, 


Look in the variables area to 
determine whether or not 
the variable has been used 
already. 


THE ‘VARIABLE IN ASSIGNMENT’ SUBROUTINE 


This subroutine develops the appropriate values for the system variables DEST & 


Initialise FLAGX to +00. 
Jump forward if the variable 
has been used before. 

Signal ‘a new variable’. 

Give an error if trying to use 
an ‘undimensioned array’. 


Call the error handling 
routine. 


The parameters of simple string 
variables and all array variables 
are passed to the calculator 
stack. (STK-VARS will ‘slice’ a 
string if required.) 

Jump forward if handling a 
numeric variable, 

Clear the A register. 

The parameters of the string or 
string array variable are fetched 
unless syntax is being checked. 
This is FLAGX. 


M H nt after then. 
Th Sng) POHe UC 
DE still points to ‘| 


DATA n ‘DE 


CALL 
RES 
CALL 
JR 


g16E IN-VARS CALL 


made. 


2174 INVARS-5 


2198 IN-VARS4 


JP 
RET 


OF 2C,EDITOR 
7,(FLAGS) 
21B9,IN-ASSIGN 
2161,IN-VAR4 


OF2C,EDITOR 


(K-CUR-hi) +00 
21D6,IN-CHAN-K 
NZ,2174,IN-VARS 
111D,ED-COPY 
BC, (ECHO-E) 
ODD9,CL-SET 


HL,45C71 
5 (HL) 


HL 
(ERR-SP),HL 


HL 

(X-PTR),HL 
7,(FLAGS) 
21B9,IN-ASSIGN 


HL,(X-PTR) 
(X-PTR-hi) +00 
(CH-ADD),HL 
21B2,IN-NEXT-2 


HL,(STKBOT) 
DE,(WORKSP) 


HL,DE 
B,H 


cL 
2AB2,STK-ST-$ 
2AFF,LET 
21B2,IN-NEXT-2 


SUBROUTINE 


called twice 


‘once with it set (run). 


LD 
LD 


HL,(WORKSP) 
(CH-ADD),HL 
0018,GET-CHAR 


zn st ial 


VAL-FET-2 


Now get the INPUT and with 

the syntax/run flag indicating 
syntax, check the INPUT for 

errors; jump if in order; return 
to IN-VAR-1 if not. 

Get a ‘LINE’. 


ail the system variables have to be reset before the actual assignment of a value can be 


The cursor address is reset. 
The jump is taken if using 
other than channel ‘kK’. 

The input-line is copied to 
the display and the position 
in ECHO-E made the current 
Position in the lower screen. 
This is FLAGX. 

Signal ‘edit mode’. 

Jump forward if handling an 
INPUT LINE. 


Drop the address IN-VAR-1. 
Reset the ERR-SP to its 
original address. 

Save the original CH-ADD 
address in XPTR. 

Now with the syntax/run flag 
indicating ‘run’ make the 
assignment. 

Restore the original address 
to CH-ADD and clear X-PTR. 


Jump forward to see if there 
are further INPUT items. 
The length of the ‘LINE’ in 
the work space is found. 


DE points to the start and 

BC holds the length. 

These parameters are stacked 
and the actual assignment made. 
Also jump forward to consider 
further items. 


Handle any print items. 

Handle any position controllers. 
Go around the loop again if 
there are further items; 
otherwise return. 


for each INPUT value. Once with the syntax/run flag 


Set CH-ADD to pointto the 
first location of the work 

ce and fetch the character. 
Is ita ‘STOP’? 
Jump if it is. 
Otherwise make the assignment 
of the ‘value’ to the variable. 


CPL completemented (OVER 1) or 


$ 1 (OVER 0). 
2303 PLOT-END Lo (HL)A The byte is entered. Its other 
ap OBDB,PO.ATTR bits are unchanged in every case. 


Exit, setting attribute byte. 
E ‘STK-TO-BC’ SUBROUTINE 
This subroutine loads two floating point numbers into the BC register pair, It is thus used 


ick up parameters in the range +00-+FF, It also obtains i "di . 
sues tet ,+1) which are used in the line drawing wblsutine of BAW. diagonal move' 


2307 STK-TO-BC CALL 2314,STK-TO-A First number to A. 
LD BA Hence to B. 
PUSH BC Save it briefly, 
CALL 2314,STK-TO-A Second number to A. 
LD E,c Its sign indicator to E. 
PoP BC Restore first number. 
LD Dc Its sign indicator to D. 
LD CA Second number to C. 
RET BC, DE are now as required. 


THE ‘STK-TO-A‘ SUBROUTINE 
This subroutine loads the A register with the floating point number held at th 
the calculator stack. The number must be in the anda DOr er Det aaataEne topoF 


2314 STK-TO-A CALL 2DD5,FP-TO-A Modulus of rounded last value to 
JP C,24F9,REPORT-B A if possible; else, report error. 
LD C+01 One to C for positive last value. 
RET eZ Return if value was positive. 
LD CFF Else change C to +FF (i.e. minus 

4 RET one), Finished. 

THE CIRCLE COMMAND ROUTINE 

This routine draws an approximation to the circle with centre co-ordinates X and Y and 


tadius Z. These numbers are rounded to the nearest integer before use. Thus Z must be 
_ less than 87.5, even when (X,Y) is in the centre of the screen. The method used is to 
_ draw a series of arcs approximated by straight lines. It is illustrated ina BASIC program 
in the appendix. The notation of that program is followed here. 
y _ CIRCLE has four parts: 
fests the radius. If its modulus is less than 1, just plots X,Y; 


ii Calls CD-PRMS1 at 2470-2486, which is used to set the intial parameters for both 
CLE and DRAW; 

a up the remaining parameters for CIRCLE, including the initial displacement for 

first ‘arc’ (a straight line, in fact); 

Jumps into ‘DRAW to use the arc-drawing loop at 2420-24FA. 

ill now be explained in turn. 

AA. | radius, Z', is obtained from the calculator stack. Its modulus Z 
en. If Z is less than 1, it is deleted from the stack and the 

is plotted by a jump to PLOT. 


T-CHAR Get the present character. 
oP ae Test for sommes eile 
T-C If not so, repo! je error. 
Ast Hh Pict Sabrpel Get next character (the radius). 
CALL 1C82,EXPT-1NUM —_ Radius to calculator stack. 
a : -END Move to consider ni 
PERSE ROE EN if checking syntax. 


a 


0028,FP-CALC Use calculator: the stack holds: 
3 : x,Y,2 
need jack Z is re-stacked; its exponent 


is therefore available. 
Get exponent of radius. 


DEFB +01,exchange sa,sb,sa,sb 


DEFB +31 duplicate 
: DEFN +E0.get-memo sweets ab 
peees DEFB +A0,stk-zero sa,sb,sa'sbisb‘sa,0 
pee ware 0 tell (mem-1 is set to zero) 
FE DEFB +38/end-calc sear aaa 
" pere sa denotes X+Z and sb denotes Y - Z*SIN (P1/A)). 


INC (mem-2-1 st) Incrementing the exponent byte 
Bee en mem-2 to 

i WA). 

q CALL 1£94,FIND-INT1 The last value X+Z is moved 


LD LA Mich the stack to A and copied 
toL. 

PUSH HL It is saved in HL. 

CALL 1E94,FIND-INT1 Y -Z"SIN (P1/A) goes from the 

POP HL stack to A and is copied to H. 

LD HA HL now holds the initial point. 

LD (COORDS),HL It is copied to COORDS. 

POP BC The arc-count is restored. 


JP 2420,DRW-STEPS The jump is made to DRAW. 
‘stack now holds X+Z, Y -Z*SIN(PI/A), Y -Z*SIN(PI/A), X+Z). 


RAW COMMAND ROUTINE 

utine is entered with the co-ordinates of a point XO, YO, say, in COORDS. If only 
rameters X, Y are given with the DRAW command, it draws an approximation to 
ine from the point XO, YO to XO+X, YO+Y. If a third parameter G is given, it 
oximation to a circular arc from XO, YO to X0+X, YO+Y turning anti- 
through an angle G radians. 

tine has four parts: 


draws a line if only 2 parameters are given or if the diameter of the implied 
less than 1; 


=D IRMS1 at 247D-24B6 to set the first parameters; 
| the remaining parameters, including the initial displacements for the first arc; 


-arc-drawing Joop and draws the arc as a series of smaller arcs approximated 
ines, calling the line-drawing subroutine at 2487-24FA as necessary. 


1e, CD-PRMS1 and DRAW-LINE, follow the main routine. The above 4 

in routine will now be treated in turn. 

ly 2 parameters, a jump is made to LINE-DRAW at 2477. A line is also 

ity Z=(ABS X + ABS Y)/ABS SIN(G/2) is less than 1. Z lies between 1 

1e diameter of the implied circle. In this section mem-0 is set to SIN 
,and mem-5 to G. 

0018,GET-CHAR Get the current character. 

woGre If it is a comma, 

Z,238D,DR-3-PRMS — then jump. 

4BEE,CHECK-END Moveon to next statement if 

checking Eines Wahine 

i =| Jump to just draw ‘ 

Ea sas Get oa character (the angle). 
1CB2,EXPT-INUM Angle to calculator stack. 

1BEE,CHECK-END Move on to next statement if 


cking syntax. 
xy, aa on the stack. 


(G is copied to mem-S) 
“Y/ SIN (G/2) 
evs (G/2),SIN (G/2) 


DEFB +30,not X,Y, SIN (G/2), (0/1) 


+30,not %, ¥, SIN (G/2), (1/0) 

Bere +00,jump-true X,Y, SIN (G/2) 

DEFB +06,to DR-SIN-NZ (IFSIN (G/2) = Oi.e. G = 2+ysp, 

DEFB +02,delete just draw a straight line), 

DEFB +38,end-calc x,Y 

JP 2477,LINE-DRAW Line XO, YO to X0+x, Yosy 
23A3 DR-SIN-NZ DEFB +CO,st-memO (SIN G/2 is copied to mem-0}) 

DEFB +02,elete X,Y are nowon the stack, 

DEFB +C1,st-mem-1 (Y is copied to mem-1), 

DEFB +02delete x 

DEFB +31 duplicate X,X 

DEFB +2A,abs X,X' (X' = ABS X) 

DEFB +E1,get-mem-1 core 

DEFB +01,exchange py eae 

DEFB +E1,get-nem-1 > ae ie 

DEFB +2A,abs x,¥,%', ¥' (¥' = ABS Y) 

DEFB +0F addition X,Y, X'+¥" 

DEFB +E0,get-mem-0 X,Y, X'+Y', SIN (G/2) 

DEFB +05 division X,Y, (X'+¥")/SIN (G/2)=2', say 

DEFB +2A,abs X,Y,Z (Z = ABS Z’) 

DEFB +E0,get-mem-0 X,Y,Z, SIN (G/2) 

DEFB +01,exchange X,Y, SIN (G/2),Z 

DEFB +3D,re-stack (Z is re-stacked to make sure 

DEFB +38,end-calce that its exponent is available), 

LD A AHL) Get exponent of Z. 

cP +81 If Z is greater than or equal 

JR NC,23C1,DR-PRMS to 1, jump. 

RST 0028,FP-CALC X,Y, SIN (G/2),Z 

DEFB +02 delete X,Y, SIN (G/2) 

DEFB +02,delete Rey 

DEFB +38,end-calc Just draw the line from XO, YO 


JP 2477,LINE-DRAW to XO+X, YO+Y. 


ji, Just calls CD-PRMS1. This subroutine saves in the B register the number of shorter 
arcs required for the complete arc, viz. A=4*INT (G’*SQR Z/8)+4, where G’ = modG, 
Or 252 if this expression exceeds 252 (as can happen with a large chord and a small 
angle). So A is 4, 8, 12, ... , up to 252. The subroutine also stores in mem-0 to mem-4 
the quantities G/A, SIN (G/2*A), 0, COS (G/A), SIN (G/A). 


23C1 DR-PRMS CALL 247D,CD-PRMS1 The subroutine is called. 


iii. Sets up the rest of the parameters as follow. The stack will hold these 4 items, 
reading up to the top: X0+X and YO+Y as end of last arc; then XO and YO as beginning 
of first arc, Mem-0 will hold XO and mem-5 YO. Mem-1 and mem-2 will hold the initial 
brates for the first arc, U and V; and mem-3 and mem-4 will hold COS (G/A) and 
SIN (G/A) for use in the are-drawing loop. 
_,. The formulae for U and V can be explained as follows. Instead of stepping along the 
‘final chord, of length L, say, with displacements X and Y, we want to step along an 
ie Hy ee Aetieh) shy Ee pp baet of length L*W, where W=SIN PSP ANIM (GIS 

ith | ani |, but - — G/2°A), hen 
in ie ia net ut turned through an angle — (G/2 — G/2 

= ow G/2 — G/2*A) + X*W*COS (G/2 — G/2"A 
a, V = ¥*W*COS (G/2 — G/2*A) — X*W*SIN (G/2 — Gina) 
hese fi can be checked froma diagram, using the normal expansions of 
‘SIN (P — Q), where Q = G/2 — G/2*A. 


Save the arc-counter in B. 

X,Y ,SIN(G/2) 2 
X,Y,SIN(G/2) 

X,Y |SIN(G/2), SIN(G/2*A) 
X,Y,SIN(G/2*A),SIN(G/2) i 
XY, SIN(G/2*A)/SIN(G/2)" 
(W is copied to mem-1). 


DEFB +31 duplicate X0+X, YOHY, Xn+1 
D , Xnt4 
DEFB +38,end-calc Next Xn’, the aberon ute 
value of Xn reached by 


th ; ; 
LD —_A,(COORDS-Io) ¢ line-drawing subroutine 


is copied to 

CALL 2D28,STACK-A and heats qe tiie stack 

RST 0028,FP-CALC XO+X,YOrY ,Xn+1.Xn’ 

DEFB +03,subtract XO+X,YOHY XnH1 Xn+1 Xn’ 
-Xn'=Un' 

DEFB +E0,get-mem-O X0+X YO+Y Xn+1,Un7,¥n 

DEFB +E2,get-mem-2 X0+X,YO+Y XnH1Un¥n,Vn 

DEFB +0F addition XO+X YO+¥ Xn#1 Un" Yn + 
Vn=Ynt1 ‘ 

DEFB +CO,st-mem0 (Yn+1 is copied to mem-0) 

DEFB +01,exchange XO+X,YOHY ,Xn+1,Ynt1,Un’ 

DEFB +E0,get-mem-0 XO+X,YO+Y.Xn+1Y¥nt1, 
Un’ Yn+1 

G5"? eeSatE 

u F DS-hi Yn", approximate like Xn’, i 

CALL 2D28,STACK-A copied to A and rial ‘he 
stack, 

RST 0028,FP-CALC X0+X, YOY, Xn+1,Yn+1, 
Un! Yn+1,Yn' 

DEFB +03,subtract X0+X YOY ,Xn+1,Yn+1, 
Un' Nn’ 


DEFB +38,end-calc 
CALL 24B7,DRAW-LINE The next ‘are’ is drawn. 


POP BC The arc-counter is restored. 
DJNZ 2425,ARC-LOOP Jump if more arcs to draw. 
245F ARC-END RST 0028,FP-CALC The co-ordinates of the end 
DEFB +02,delete of the last arc that was drawn 
DEFB +02,elete are now deleted from the stack. 
DEFB +01,exchange YO+ry, X0+X 
DEFB +38,end-calc 
‘ LD A,(COORDS-lo) The X-co-ordinate of the end of 
e CALL 2D28,STACK-A the last arc that was drawn, say 
aap RST 0028,FP-CALC Xz’, is copied to the stack. 
ie DEFB +03,subtract YO+Y, X0+X - Xz" 
DEFB +01,exchange XO+X - Xz’, YOY 
DEFB +38,end-calc 
LD AACOORDS-hi) The Y-co-ordinate is obtained. 
CALL 2D28,STACK-A i i 
RST 0028,FP-CALC XO+X - Xz", YOY, Yz 3 
DEFB +03,subtract KO+X - Xz’, YOY - YZ 


DEFB +38,end-calc ibe, a IE 
-LINE e final arc is dra 
"decade XO+X, YO+Y (or close the 
circle). 
JP OD4D,TEMPS Exit, setting temporary colours. 


fe returns in B the arc-count f 
in mem to mem 5 the quanti 


ar a circle, G must be taken to be equal to 2*Pl. 


- 0028,FP-CALC aS 
+31 ,duplicate 3'sar z 
k-data Z,SQRZ.2 
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5 A UNS to 256 or more 


| EXPRESSION EVALUATION 
-_gHE ‘SCANNING’ SUBROUTINE 


‘subroutine is used to produce an evaluation 
ie result is returned as the ‘last value’ o 
it, the last value will be the actual floating p 


‘ it ‘Or a string result. 
4 single operand,eg....A...,...R 
. , then the last value is simply the value that is couiar 


s a function and an operand, CT Taree 


CH 5] A . , the operation code of the function i 
‘on the machine stack until the last value of the operand has been calculated. frie (eat 


value is then subjected to the appropriate operation to give a new last value. 
In the case of there being an arithmetic or logical operation to be performed, e.g. . 
AtB...,A°B...,...A=B..., then both the last value of the first argument and the 
operation code have to be kept until the last value of the second argument has been 
found. Indeed the calculation of the last value of the second argument may also involve 
‘the storing of last values and operation codes whilst the calculation is being performed. 
‘It can therefore be shown that as a complex expression is evaluated, e.g. ...CHRS 
[+A - 26*INT ((T+A)/26)+65) . . . , a hierarchy of operations yet to be performed is 
quilt up until the point is reached from which it must be dismantled to produce the final 


_ Each operation code has associated with it an appropriate priority code and opera- 
tions of higher priority are always performed before those of lower priority. 
The subroutine begins with the A register being set to hold the first character of the 
“expression and a starting priority marker — zero — being put on the machine stack. 


24FB SCANNING RST 0018,GET-CHAR The first character is fetched. 


LD B,+00 The starting priority marker. 
PUSH BC It is stacked. 
LD CA The main re-entry point. 

D HL,+2596 Index into scanning function 
CALL 16DC,INDEXER table with the code in C. 


A.C Restore the code to A. 
JP NC,2684,S-ALPHNUM Jump if code not found in table. 


LD B+00 Use the entry found in the table 
LD C,(HL) to build up the required address 
ADD HL,BC in HL, and jump to it. 

JP (HL) 


ines follow; they are called by routines from the scanning function table. 
2 ‘the “scanning quotes subroutine’, is used by S-QUOTE to check that every 
; a by another one. 


D+ Point to the next character. 

inc hagas Increase the length count by 
one. 

+0D Is it a carriage return? 
Z,1CBA,REPORT-C . Report the error if so. 
ae ES is Ms ae it an 
i -QUOT oop bac! 2 
See ADD Point to next character; set zero 
+22 : flag if it is another" *, 
Finished. 


: two co q ine, is called by SSCREENS, 
sure begin he sa co-ordinates are given in their 


XT-CHAI tch the next character. 
sheen attr 


i 
O 
nm 


| : - eport error if it isn 
Dug le us 


a A zag : 


JR Z,2665,S-INKS-EN Jump if required. 
CALL 028E,KEY-SCAN Fetch a key-value in DE. 
c,+00 Prepare empty string; stack it; 
JR NZ,2660,S-IK$-STK too many keys presseq, is 
CALL 031E,K-TEST Test the key value; stack emp 
JR NC,2660,S-IK$-STK string if unsatisfactory, iy 
D +FF to D for L mode (bit 3 set) 


LD EA Key-value to E for decodi 

CALL 0333,K-DECODE Decode the key-value. 

PUSH AF Save the ASCII value briefly 

LD BC,+0001 One space is needed in the work 
space. 


RST 0030,BC-SPACES Make it now. 


POP AF Restore the ASCII value. 
LD (DE),A Prepare to stack it asa String. 
LD C,+01 He penuh sore 
yi TK LD B,+00 omplete the length parameter, 
sone Se CALL 2AB2,STK-STO-$ Stack the required String, 
2665 S-INKS-EN JP 2712,S-CONT-2 Jump forward. 
2668 S-SCREENS CALL 2522,S-2-COORD Check that 2 co-ordinates are 


given. 
CALL NZ,2535,S-SCRN$-S_ Call the subroutine unless 
RST 0020,NEXT-CHAR checking syntax; then get next 


JP 25DB,S-STRING character and jump back. 
2672 S-ATTR CALL 2522,S-2COORD Check that 2 co-ordinates are 
given. 


CALL NZ,2580,S-ATTR-S Call the subroutine unless 
RST 0020,NEXTCHAR checking syntax; then get the 
JR 26C3,S-NUMERIC next character and jump 
forward. 
267B S-POINT CALL 2522,S-2COORD Check that 2 co-ordinates are 
given. 
CALL NZ,22CB,POINT-SUB Call the subroutine unless 
RST 0020,NEXT-CHAR checking syntax; then get the 
JR 26C3,S-NUMERIC next character and jump 
forward. 
2684 S-ALPHNUM CALL 2C88,ALPHANUM Is the character alphanumeric? 
JR NC,26DF,S-NEGATE Jump if nota letter or a digit. 


f cP +41 Now jump if it a letter; 

F JR NC,26C9,S-LETTER otherwise continue on into 

K) S-DECIMAL. 

: The ‘scanning DECIMAL routine’ which follows deals with a decimal point or a number 
that, With a digit. It also takes care of the expression ‘BIN’, which is dealt with in 


2 ‘decimal to floating-point’ subroutine. 


CALL 2530,SYNTAXZ Jump forward if a line is 
J NZ,26B5,S-‘STK-DEC being executed. 


pecu Dec -T) The floating-point form is 
found. 

Set HL to point one past the 
last digit. : 

Six locations are required. 
Make the room in the BASIC 


De first free space 
i ’ 
Ny oe marker code. 


uD een) Fetch the ‘old’ STKEND. 
ANCA, There are 5 bytes to move. 
Clear the carry flag. 


SBC HL,BC phe ‘new’ STKEND = ‘old’ 
KEND -5. 
aot (STKEND),HL Move the floating-point number 
Ron the calculator stack to 
e line, 
BX Ape Put the line pointer in HL. 


Point to the last 
CALL 0077,TEMP-PTR1 This sets CHADD. eee 


JR 26C3,S-NUMERIC Jump forward. 
During line execution: 


2685 SSTK-DEC RST 0018,GET-CHAR Get th h 
2686 S-SD‘SKIP = INC HL Now move on to the next 


Ey allele) character in turn until 
the numb ker cod’ 
JR NZ,26B6,S-SD-SKIP _is found. Sie etree 
INC HL Point to the first byte of the 
CALL 33B4,STACK.NUM Move th 
. 4 Move the floating-point number. 
LD (CH-ADD),HL Set CH-ADD. 2 


A numeric result has now been identified, coming from RND, Pl, ATTR, POINT ora 
decimal number, therefore bit 6 of FLAGS must be set. 


26C3 S-NUMERIC SET 6,(FLAGS) Set the numeric marker flag. 
JR 26DD,S-CONT-1 Jump forward. 


THE SCANNING VARIABLE ROUTINE 

When a variable name has been identified a call is made to LOOK-VARS which looks 
through those variables that already exist in the variables area (or in the program area 
at DEF FN statements for a user-defined function FN). If an appropriate numeric 
value is found then it is copied to the calculator stack using STACK-NUM. However 
a string or string array entry has to have the appropriate parameters passed to the cal- 
culator stack by the STK-VAR subroutine (or in the case of a user-defined function, by 
the STK-F-ARG subroutine as called from LOOK-VARS), 


26C9 S-LETTER CALL 28B2,LO00K-VARS Look in the existing variables 
for the matching entry. 

JP C,1C2E,REPORT-2 An error is reported if there is 
no existing entry. 

CALL Z,2996,STK-VARS Stack the parameters of the 
string entry/return numeric 
element base address. 

LD A,(FLAGS) Fetch FLAGS. 


cP +CcO Test bits 6 and 7 together. 
JR C,26DD,S-CONT-1 One or both bits are reset. 
INC HL A numeric value is to be stacked. 
CALL 33B4,STACK-NUM Move the number. 
26DD S-CONT-1 JR 2712,S-CONT-2 Jump forward. 


The Character is tested against the code for ‘~’, thus identifying the ‘unary minus’ 


‘Pperation, es 
Before the actual test the B register is set to hold the priority +09 and the C register 


he i ired for this operation. : 
20F SNEGATE oie io es Bc 40sD B carey +09, operation code 
; +D8. 
’ +2D Telia yet eee so 
= $7 P10 S-PUSH-PO Jump forward if it is ‘unary 
minus’. 


character is tested against the code for ‘VAL’, with priority 16 decimal and 
18 hex. 
L 
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- qHe TABLE OF OPERATORS 


eds operator is 

Jocation code operator location code Perator 

2795 2B CF + 27 code Operator 
3797 Yo" "C3 3 He 3c cp “ 

7799 2A C4 . Bue C7 erag 7 

ur Ce / zag. A Se 

fe ve * gas eC <> 

es to 8 ek Ok 

AL > c8 AND 
a 27AF 00 End marker 


THE TABLE OF PRIORITIES (precedence table) 


fresioms Peenty. operator location priority operator 
erat O6 a 2787 os a8 
2781 2788 05 a 
3782-08 / Sages 

Sues, 08 t 278A 05 zi 

ee 03S AND Pec Meeds aac ae 

278: z 

2786 05 as 27BC 06 2 


THE ‘SCANNING FUNCTION’ SUBROUTINE 
This subroutine is called by the ‘scanning FN routine’ t I i i 
which occurs ina BASIC line. The subroutine can ear a user paieg ee 
i. The syntax of the FN statement is checked during syntax checking. 
ji. During line execution, a search is made of the pro: 
‘ i gram area for a DEF FN statement. 
ind the i i ; 
ool of the functions are compated, until! a match is found — or an error is 
iii, The arguments of the FN are evaluated by calls to SCANNING. 


iv. The function itself is evaluated by calling SCANN ich i > 
VARS and so the ‘STACK FUNCTION ARGUMENT subroutine” se aera 
27BD S-FN-SBRN CALL 2530,SYNTAX-Z Unless syntax is being checked, 
JR NZ,27F7,SF-RUN a jump is made to SF-RUN. 
RST 0020,NEXT-CHAR Get the first character of the 


name. 
CALL 2C8D,ALPHA If it is not alphabetic, then 
JP NC,1C8A,REPORT-C report the error. 
RST 0020,NEXT-CHAR Get the next character. 
cP +24 Is ita ‘S'? 
PUSH AF Save the zero flag on the stack. 


JR NZ,27D0,SF-BRKT-1 Jump if it was not a ‘3’. 

RST 0020,NEXT-CHAR But get the next character if it 
was. 

cP +28 If the character is not a ‘(", then 

JR NZ,27E6,SF-RPRT-C report the error. 

RST  0020,NEXT-CHAR Get the next character. 

+29 Is ita ‘)'? 

JR Z,27E9,SF-FLAG6 Jump if it is; there are no argu- 
Within the! ll SCANNING 

7 Within the loop, ca! 

exe ens to check the syntax of each 

argument and to insert floating- 

point numbers. : 

Get the character which follows 

+2C the argument; if it is not Lae Re 

NZ,27E4,SF-BRKT-2 then jump — no more arg} 
02 -CHAR Get the first character in the 
x 0020,NEXT-CH next argument. 


0018,GET-CHAR 
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RST 0020 
/NEXT-CHAR Get the next character in the 


‘ 3 BASIC line 
12,S-CONT-2 Jump back to continue 
scanning. 


¢ ‘FUNCTION SKIPOVER’ su 
THE Teune is used by FN and DO ROUTINE 
gatement while leaving CH-ADD undisturbed, as it 


76AB FN-SKPOVR INC HL 


RG to move HL 
y along the 
Points along the FN statanente af 


Point to the next code in the 


ey A, statement. 
ue eae) Gony ep ede to A. 
lump back to ski it if it i 
a C,28AB,FN-SKPOVR a rontel tode ond eee ie 
inished. ; 


THE ‘LOOK-VARS’ SUBROUTINE 
This subroutine is called whenever a search of the va 
DEF FN statement is required. The subroutine i 
CH-ADD pointing to the first letter of the name o: 
sought. The name will be in the program area or th 
builds up a discriminator byte, in the C register, 
jable’s name. Bits 5 & 6 of thi: indi f 
mare im 6 of this byte indicate the type of the variable that is being 
The B register is used as a bit register to hold flags. 


2882 LOOK-VARS_ SET 6, (FLAGS) Presume a numeric variable. 


RST 0018,GET-CHAR Get the fi i 

CALL 2C8D,ALPHA Grace 

JP NC,1C8A,REPORT-C_ Give an error report if it is not 
so. 

PUSH HL Save the pointer to the first 
letter. 

AND +1F Transfer bits 0 to 4 of the letter 

LD CA to the C register; bits 5 & 7 are 


always reset. 
RST 0020,NEXT-CHAR Get the 2nd character into A. 


PUSH HL Save this pointer also. 

cP +28 is the 2nd character a ‘("? 

JR Z,28EF,V-RUN/SYN Separate arrays of numbers. 

SET 6c Now set bit 6. 

cP +24 Is the 2nd character a ‘$'? 

JR Z,28DE,V-STR-VAR __ Separate all the strings. 

SET 5.C Now set bit 5. 

CALL 2C88,ALPHANUM If the variable’s name has only 

JR NC,28E3,V-TEST-FN one character then jump 
forward. 


name that has more than one character. 
2C88, ALPHANUM Is the character alphanumeric? 


JR NC,28EF,V-RUN/SYN Jump out of the loop when the 
: end of the name is found. 

RES 6, Mark the discriminator byte. 

RST 0020,NEXT-CHAR Get the next character. 

JR 28D4,V-CHAR Go back to test it. 


{ arrays of strings require that bit 6 of FLAGS is reset. oe 
AR Step CH-ADD past the ‘$’. 
Bes “hea Rewt the bit 6 to indicate a 
: z string. 


that a ‘function’ (a “FN’) is being evaluated, and if 


pono aN arguments in the DEF FN statement. 
LD A,(DEFADD-hi) Is DEFADD-hi zero? 


p B 
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'STK-VAR’ SUBROUTINE 


4 routine is usually used either 
Pon urn in the HL 


STK-VAR xXOR A 
a LD BA 
BIT 70 
JR NZ,29E7,SV-COUNT 
‘Next, simple strings are separated from array variables. 
BIT 7,(HL) 
JR 
| The parameters for a simple string are readily found. 
| INC A 
29A1 SV-SIMPLES INC HL 
| LD C,(HL) 
INC) HL 
LD B,(HL) 
INC HL 
EX DE,HL 
CALL 2AB2,STK-STORE 
RST 0018,GET-CHAR 
JP 2A49,SV-SLICE? 


sions’ is collected. 
2SAE SV-ARRAYS INC HL 
: INC HL 
INC HL 
LD B,(HL) 
BIT 6c 
JR Z,29C0,SV-PTR 


| as a simple string. 
‘ B 
ra Z,29A1,SV-SIMP LES 


‘to en 


HL 
0018,GET-CHAR 


+28 
|2A20,REPORT-3 
DER 


2967 SV-COUNT 


I 7 


sure that in the BASIC line the variable is follo 


ys of strings the variable 


register pair the base 
tat When called from DIM the pertharot oir 


9 May be altered by calling SLICING if 
cleared and bit 7 of the C register is tested to 


Clear the array flag. 

Clear the B register for later. 
Jump forward if syntax is 
being checked. 


Jump forward if dealing with 


NZ,29AE,SV-ARRAYS an array variable. 


Signal ‘a simple string’. 
Move along the entry. 

Pick up the low length counter. 
Advance the pointer, 

Pick up the high length 
pointer. 

Advance the pointer. 
Transfer the pointer to the 
actual string. 

Pass these parameters to the 
calculator stack. 

Fetch the present character 
and jump forward to see if a 
‘slice’ is required. 


The base address of an element in an array is now found. Initially the ‘number of dimen- 


Step past the length bytes. 


Collect the ‘number of 
dimensions’. 

Jump forward if handling an 
array of numbers. 


f strings has its ‘number of dimensions’ equal to *4' then such an array can 


Decrease the ‘number of 
dimensions’ and jump if the 
number is now zero. 

wed by 2 


Save the pointer in DE. 

Get the present character. 

Is ita‘(? a 

Report the error if it is not so. 
Restore the pointer, 

pointer is transferred to the 


Pass the pointer to DE. 
Jump forward. 


CALL 2AB6,STK-STORE 
ple ot al sara The calculator is used. 

‘ nets the base 10 is now 
DEFB +EF, c 
DEFB +1 Asean ATF The stack now holds A, log 2. 
DEF 4 multiply * i 
Bere borin A*log 2 ie. log (24A) 


DEFB +38,end-calc sales 12m) 
subroutine continues on into FP-TO-A to complete the calculation 


TELOR TING FOINT TO A SUBROUTINE 
“his short but vital subroutine is called at least 8 times for various pu 
ad put one subroutine, FP-TO-BC, to get the ‘last value’ into the A anerateasee 
possible. It therefore tests whether the modulus of the number rounds to more than 255 
and if it does the subroutine returns with the carry flag set. Otherwise it returns with the 
modulus of the number, rounded to the nearest integer, 


ne in the A register, and th: 
flag set to imply that the number was positive, or reset to imply that it Was negativd. a 


2pD5 FP-TO-A CALL 2DA2,FP-TO-BC Compress the ‘last value’ into 
BC 
RET = :¢ 


the 


Return if out of range already. 


PUSH AF Save the result and the flags. 
DEC B Again it will be out of range 
INC B if the B register does not hold 
zero. 

JR Z,2DE1,FP-A-END Jump if in range. 
POP AF Fetch the result and the flags. 
SCF Signal the result is out of range. 
RET Finished — unsuccessful. 

2DE1 FP-A-END POP AF Fetch the result and the flags. 
RET Finished — successful. 


THE ‘PRINT A FLOATING-POINT NUMBER’ SUBROUTINE 
This subroutine is called by the PRINT command routine at 2039 and by STR$ at 3630, 
which converts to a string the number as it would be printed. The subroutine prints x, 
the ‘last value’ on the calculator stack. The print format never occupies more than 14 
spaces. 
The 8 most significant digits of x, correctly rounded, are stored in an ad hoc print 
buffer in mem-3 and mem-4. Smal! numbers, numerically less than 1, and large numbers, 
numerically greater than 2 4 27, are dealt with separately. The former are multiplied by 
104 n, where n is the approximate number of leading zeros after the decimal, while the 
latter are divided by 10% (n - 7), where n is the approximate number of digits before the 
oh mal. This brings all numbers into the middle range, and the numbers of digits 
‘fequired before the decimal is built up in the second byte of mem-5. Finally the printing 
Ne, using E-format if there are more than 8 digits before the decimal or, for small 

eo than 4 leading zeros after the decimal. 

following program shows the range of print formats: 
1@ FOR a=-11 TO 12: PRINT SGN a*9%a,: NEXT a 


ign of x is taken care of: ‘ 
‘negative, the subroutine jumps to PF-NEGATIVE, takes ABS x and prints the 


‘deleted from the calculator stack, a ‘0’ is printed and a return is made 


0028,FP-CALC Use the calculator. 
ceo (10) Logical value of x. 


+36, 
x 
soar PENEGTVE * 


% (yo) Logical value of x. 


Lb AAHL) the next literal is fetched and 
used unreduced. 
33DE FORM-EXP ADD A,4+50 The exponent, e, is formed by 
LD (DE),A the addition of Hex.50 and 
Passed to the calculator stack as 
the first of the five bytes of the 


LD A405 The ni 
rH /é number of literals speci 
SUB C. in C are taken from the pet 
INC HL and entered into the bytes of 
INC DE the result. 
LD B,+00 
LDIR 
PoP BC Restore BC. 
i> (SP),HL Return the result pointer to HL 
EXX and the next literal pointer to 
POP HL its usual position in H’ & L’. 
EXX 
LD BA The number of zero bytes 
XOR A required at this stage is given by 
33F1 STK-ZEROS DEC B 5-C-1; and this number of zeros 
REN -2 is added to the result to make 
LD (DE),A up the required five bytes. 
INC DE 


JR 33F1,STK-ZEROS 
THE ‘SKIP CONSTANTS’ SUBROUTINE 
This subroutine is entered with the HL register pair holding the base address of the 
calculator’s table of constants and the A register holding a parameter that shows which 
of the five constants is being requested. 

The subroutine performs the null operations of loading the five bytes of each un- 
wanted constant into the locations 0000, 0001, 0002, 0003 and 0004 at the beginning 
of the ROM until the requested constant is reached. 

The subroutine returns with the HL register pair holding the base address of the re- 
quested constant within the table of constants. 


33F7 SKIP-CONS AND A The subroutine returns if the 
33F8 SKIP-NEXT Ret 2 Parameter is zero, or when the 
requested constant has been 
reached, 
PUSH AF Save the parameter. 
PUSH DE Save the result pointer. 
LD DE,+0000 The dummy address. 


CALL 33C8,STK-CONST Perform imaginary stacking of 
an expanded constant. 


PoP DE Restore the result pointer. 
PoP AF Restore the parameter. 
DEC A Count the loops. 


JR 33F8,SKIP-NEXT Jump back to consider the value 
of the counter. 


THE ‘MEMORY LOCATION’ SUBROUTINE ; 
This subroutine finds the base address for each five byte portion of the calculator’s 
memory area to or from which a floating-point number is to be moved from or to the 
calculator stack. It does this operation by adding five times the parameter supplied to 
the base address for the area which is held in the HL register pair. 

Note that when a FOR-NEXT variable is being handled then the pointers are changed 
sone the variable is treated as if it were the calculator's memory area (see address 


3406 LOC-MEM LD CA Copy the parameter to C. 
RLCA Double the parameter. 
RLCA Double that result. 
ADD AC Add the value of the parameter 


to give five times the original 


196 


Lob CA Value, 


This result |s 
4 wanted in the 
ADD HBC Proneulster pair. 
luce 
RET Finished. @ new base address, 


‘ OM MEMORY AREA’ Sus 
qH Ory res ‘get-mem-0' to ‘get-mam-5’) oe 


utine is called using the literals EO to E5 and the 
this subrtneld in the A register, The subroutine calls ME 
itera! ed source address into the HL register pair 
Lan BER to copy the five bytes involved from the calculator! 1 
he calculator stack to form a new ‘last value’. 
ol 


PUSH DE S i 

F get mem-O ave the result pointer, 

340 ee LD HL,(MEM) Fetch the pointer to the current 

memory area ( bove). 

CALL 3406,LOC-MEM The base eldress is paid 
CALL 33C0,MOVE-FP The five bytes are moved. 
POP HL Set the result pointer. 
RET Finished. 


THE ‘STACK A CONSTANT’ SUBROUTINE 
(offsets AO to Ad: ‘stk-zero’, ‘stk-one’, ‘stk-half’, ‘stk-pi/2’ & ‘stk-ten’) 


This subroutine uses SKIP CONSTANTS to find the base address of the requested con- 
stants from the calculator’s table of constants and then calls STACK LITERALS, enter- 
ing at STK-CONST, to make the expanded form of the constant the ‘last value’ on the 
calculator stack. 


341B stk-zero LD H,D Set HL to hold the result 
etc. pointer. 
LD LE 
EXX Go to the alternate register set 
PUSH HL and save the next literal pointer. 
LD HL,+32C5 The base address of the calcul- 
ator's table of constants. 

EXx Back to the main set of registers. 
CALL 33F7,SKIP-CONS Find the requested base address. 
CALL 33C8,STK-CONST Expand the constant. 
EXX 
POP HL Restore the next literal pointer. 
EXX 
RET Finished. 


THE ‘STORE IN MEMORY AREA’ SUBROUTINE 

(Offsets CO to C5: ‘stamem-0' to ‘st-mem-5') 

He subroutine is called using the literals CO to C5 and the parameter derived from these 

Merals is held in the A register. This subroutine is very similar to the GET FROM MEM- 
‘subroutine but the source and destination pointers are exchanged. 


342D st-mem0 PUSH HL Save the result pointer. 
apie, Ex DE,HL Source to DE briefly. 
LD HL,(MEM) Fetch the pointer to the current 
memory area. 
ex CALL 3406,LOC-4MEM The base address is found. 
Payee EX DE,HL Exchange source and 
destination pointers. i 
CALL 33C0,MOVE-FP The five bytes are moved. 
Ex DEMS ‘Last value’ +5, i.e. STKEND, to 


Result pointer to HL. 
Finished. 


inters HL and DE remain as they were, pointing to STKEND 5S i 
ee vapecvely, so that the ‘last value’ remains on the calculator stack. If required 


it can be removed by using ‘delete’. 
THE ‘EXCHANGE’ SUBROUTINE 
(Offset 01; ‘exchange’) 


2 z i ith the second number, i.e. th: 
‘his binary operation ‘exchanges’ the first number wit! et 
Abs Ra aunbers on the calculator stack are exchanged. ‘Op- 


ANGE LD B,+05 There are five bytes involved. 
ane SWAP-BYTE LD ADE) Each byte of the second number. 
LD C,(HL) Each byte of the first number, 
EX DE,HL Switch source and destination. 
Lb (DE),A Now to the first number, 
LD (HL),C Now to the second number. 
INC HL Move to consider the next pair 
INC DE of bytes. 
DJNZ 343E,SWAP-BYTE Exchange the five bytes. 
—x DE,HL Get the pointers correct as the 
number 5 is an odd number. 

RET Finished, 


THE ‘SERIES GENERATOR’ SUBROUTINE 
(Offsets 86, 88 & 8C: ‘series-O6’, ‘series-08’ & ‘series-OC’) 


This important subroutine generates the series of Chebyshev polynomials which are used 
to approximate to SIN, ATN, LN and EXP and hence to derive the other arithmetic 
functions which depend on these (COS, TAN, ASN, ACS, ** and SQR). 

The polynomials are generated, for n=1,2,..., by the recurrence relation: 


T+1 (2) = 22T plz) - Tp.4 (2), where Tp(z) is the nth Chebyshev polynomial in z. 

The series in fact generates: 

To, 274, 2T2,.... , 2Tp-1, where n is 6 for SIN, 8 for EXP and 12 decimal, for LN 
and ATN. 

The coefficients of the powers of z in these polynomials may be found in the Hand- 
eeee of Mathematical Functions by M. Abramowitz and |.A. Stegun (Dover 1965), page 

5. 

BASIC programs showing the generation of each of the four functions are given here 
in the Appendix. 

In simple terms this subroutine is called with the ‘last value’ on the calculator stack, 
say Z, being a number that bears a simple relationsh ip to the argument, say X, when the 
task is to evaluate, for instance, SIN X. The calling subroutine also supplies the list of 
constants that are to be required (six constants for SIN). The SERIES GENERATOR 
then manipulates its data and returns to the calling routine a ‘last value’ that bears a 
simple relationship to the requested function, for instance, SIN X. 

This subroutine can be considered to have four major parts: 


i. The setting of the loop counter: 

The calling subroutine passes its parameters in the A register for use as a counter. The 

calculator is entered at GEN-ENT-1 so that the counter can be set. 
3449 series-06 LD BA Move the parameter to B. 

etc. CALL 335E,GEN-ENT-1 In effect a RST 0028 
instruction but sets the counter. 
ii, Ede Sgt ‘last value’, Z: 
he ‘of the generator requires 2*Z to be placed in mem.0, zero to be placed in 

q ‘mem-2 and the ‘last value‘ to be zero, 


Pins 


cH leul k 
3 ‘DEFB sep culionte 22 sings 
: +OF addition 2°2 
wae” 2°2 mem-0 holds 2°Z 


EX DE,HL Point HL at Y, DE at x, 
CALL “5: dapat Test whether Y is zero, 


her Re Rein wih Ste aug 
Li as the ‘| 7 
if Y was non-zero. bey 
AND A Reset the carry flag and jump 
JR 350B,FP-0/1 back to set the ‘last value’ to 
zero. 


THE ‘STRING AND NUMBER’ OPERATION 
(Offset 10: ‘str-&-no') 3 
This subroutine performs the binary operation ‘X$ AND Y° and returns X$ if ¥ is 

zero and a null string otherwise. non- 


r-8i-no Ex DE,HL Point HL at Y, DE at x$. 
vicahs is CALL 34E9,TEST-ZERO Test whether Y is zero, 
i= DE,HL Swap the pointers back. 
RET NC Return with X$ as the ‘last 
value’ if Y was non-zero. 
PUSH DE Save the pointer to the number, 
DEC DE Point to the fifth byte of the 
string parameters i.e. length- 
high. 
XOR A Clear the A register. 
LD (DE),A Length-high is now set to zero. 
DEC DE Point to length-low. 
LD (DE),A Length-low is now set to zero. 
POP DE Restore the pointer. 
RET Return with the string 


parameters being the ‘last value’. 
THE ‘COMPARISON’ OPERATIONS 
(Offsets 09 to OE & 11 to 16: ‘no-l-eql’, ‘no-gr-eq’, ‘nos-neql’, ‘no-grtr’, ‘no-less’, ‘nos- : 
eql’, ‘str-I-eql’, ‘str-gr-eq’, ‘strs-neql’, ‘str-grtr’, ‘str-less’ & ‘strs-eql’) 


This subroutine is used to perform the twelve possible comparison operations. The — 
single operation offset is present in the B register at the start of the subroutine. 


353B no-l-eq! LD A.B The single offset goes to the 
etc, A register. 
SUB +08 The range is now 01-06 & 
09-0E. 
BIT 2A This range is changed to: 
JR N2Z,3543,EX-OR-NOT 00-02, 04-06, 08-0A & 
DEC A OC-0E. 
(3643 EX-OR-NOT RRCA Then reduced to 00-07 with 


carry set for ‘greater than or 
equal to’ & ‘less than’; the 
operations with carry set are 
NC,354E,NU-OR-STR then treated as their 
AF complementary operation once 
HL the values have been exchanged. — 


The numerical comparisons are — 


DEFB +E0,get-mem-O0 


N, INT (N/M).M 

DEFB +01,exchange N,M, INT (N/M) 

DEFB +C0,st-mem-0 N,M, INT (N/M) mem-0 holds 
INT (N/M) 

DEFB +04,multiply N,M*INT (N/M) 

bo sib elt Lat 5 n-M*INT (N/M) 

+E0,get-mem- -M* 
Pee arene n-M"INT (N/M), INT (N/M) 
RET Finished. 
NT FUNCTION 


offset 27° int’) 

a routine handles the function INT X and returns a ‘last value’ that is the ‘integer 
ay the Ee eee Gia INT 2.4 gives 2 but as the subroutine always pounce ine 
own INT -2.4 gives -3. 

ii subroutine uses the INTEGER TRUNCATION TOWARDS ZERO subroutine at 
| 3914 to produce 1 (X) such that | (2.4) gives 2 and | (-2.4) gives -2, Thus, INT X is 
| wes by | (X) for values of X that are greater than or equal to zero, and | (X)-1 for 
\ negative values of X that are not already integers, when the result is, of course, | (X). 


; RST 0028,FP-CALC x 
: H 
fe abAr in DEFB +31,duplicate x.x 
| DEFB +36,less-0 x, (1/0) 
DEFB +00,jump-true x 


DEFB +04,to 36B7,X-NEG X 


| For values of X that have been shown to be greater than or equal to zero there is no 
| jump and | (X) is readily found. 


DEFB +3A truncate 1 (xX) 
DEFB +38.end-calc 

f RET Finished. 

| When X is a negative integer | (X) is returned, otherwise | (X)-1 is returned. 

3687 X-NEG DEFB +31,duplicate X,X 

I DEFB +3A,truncate X, 1 (X) 
DEFB +CO0,st-mem-0 X, 1 (X) mem-0 holds | (X) 
DEFB +03,subtract X-1 (X) 
DEFB +E0,get-mem-O X-1 00, 1 00 
DEFB +01,exchange V(X), X-1 (X) 
DEFB +30,not 1 (X), (1/0) 
DEFB +00,jump-true 1 (X) 
DEFB +03,to 36C2,EXIT V(X) 


{X)-1 is calculated. 


DEFB +A1,stk-one 1(X),1 
DEFB +03 ,subtract 1 (X)-1 


‘Case the subroutine finishes with; 
IT DEFB +38,end-calc 1(X) or 1 (X)-1 
i RET 


ae is made for values of X that are negative integers, otherwise there is no jump 


AL’ FUNCTION 


ion EXP X and is the first of four routines that use 
Chebyshev polynomia 

found as follows: 

that 2 to the power Y is now the requ ired result. 

INT YY. 
ere O C=W C=1, a8 required for the series 


THE ‘ARCCOS’ FUNCTION 
(Offset 23: ‘acs’) 
stine handles the function ACS X and returns a real number from zero to 
Man ati is equal to the value in radians of the angle whose cosine is X. 
This subroutine uses the relation: 
ACS X =P1/2- ASN X 


ic: RST 0028,FP-CALC x 
nig he DEFB +22,asn ASN X 
DEFB +A3,stk-pi/2 ASN X, PI/2 
DEFN +03,subtract ASN XP 1/2 
DEFB +1B,negate P1/2-ASN X= ACS X 
DEFB +38,end-cale 
RET Finished: ‘last value’ = ACS x. 
THE ‘SQUARE ROOT’ FUNCTION 
(Offset 28: ‘sar’) 


This subroutine handles the function SQR X and returns the positive square root of the 
real number X if X is positive, and zero if X is zero. A negative value of X gives rise to 
report A — invalid argument (via In in the EXPONENTIATION subroutine). 

This subroutine treats the square root operation as being X**.5 and therefore stacks 
the value .5 and proceeds directly into the EXPONENTIATION subroutine. 


384A sar RST 0028,FP-CALC x 
DEFB +31,duplicate X,X 
DEFB +30,not X, (1/0) 
DEFB +00jump-true x 


DEFB +1E,to 386C,LAST x 
The jump is made if X = 0, otherwise continue with: 
DEFB +A2,stk-half ae) 
DEFB +38,end-calc 
and then find the result of X**.5. 


THE ‘EXPONENTIATION’ OPERATION 

(Offset 06: ‘to-power’) 

This subroutine performs the binary operation of raising the first number, X, to the 
‘power of the second number, Y. 

The subroutine treats the result X**Y as being equivalent to EXP (Y*LN X). It 
returns this value unless X is zero, in which case it returns 1 if Y is also zero (0° *0=1), 
returns zero if Y is positive and reports arithmetic overflow if Y is negative. 

3851 to-power RST 0028,FP-CALC X,Y 
DEFB +01,exchange YX 
DEFB +31,duplicate be 4 
DEFB +30,not Y,X, (1/0) 
DEFB +00,jump-true Y,X 
DEFB +07,to 385D,XISO Y,X 

The jump is made if X = 0, otherwise EXP (Y *LN X) is formed. 

; DEFB +25,In Me LN X 

iving report A if X is negative. 
DEFB +04,multiply Y*LNX 
DEFB +38,end-calc 


\ JP 36C4,EXP Exit via EXP to form EXP 
ies (Y*LN X). 


is 2ero so consider the three possible cases involved. 
- B +02,delete ¥ 


Vig¥t 
¥, (1/0) 
¥ 


| EXP X we 
EMONSTRATION FOR EXP X 
9 REM USING THE ‘SERIES GENERATOR’ 
30 LET T=0 (This makes T the first variable.) 
40 
50 


80 LET A(4)=0.000053453 
90 LET A(5)=0.001235714 
100 LET A(6)=0.021446556 
110 LET A(7)=0.248762434 
120 LET A(8)=1.456999875 
130 PRINT 
140 PRINT “ENTER START VALUE” 
150 INPUT C 
160 CLS 
170 LET C-C-10 
180 PRINT “BASIC PROGRAM”, “ROM PROGRAM” 
Wag PRINT se ” 
200 PRINT 
210 FOR J=1TO4 
220 LET C=C+10 
230 LET D=C*1.442695041 (D=C*(1/LN 2);EXP C=2**D). 
240 LET N=INTD 
250 LET Z=D-N (2**(N+Z) is now required). 
260 LET Z=2*2-1 
270 LET BREG=8 
280 REM USE “SERIES GENERATOR” 
290 GO SUB 550 
300 LET V=PEEK 23627+256*PEEK 23628+1 (V=(VARS}+1) 
310 LET N=N+PEEK V 
320 IF N > 255 THEN STOP (STOP with arithmetic overflow). 
330 IF N< @ THEN GO TO 360 
340 POKE V,N 
350 GOTO 370 
360 LET T=0 
370 PRINT TAB 11;"EXP ";C 
380 PRINT 
390 PRINT T,EXPC 
400 PRINT 
410 NEXTJ 
420 GO TO 136 


NOTES: 
B i, When C is entered this program calculates and prints EXP C, EXP (C+10), EXP 
i (C+20) and EXP (C+30). It also prints the values obtained by using the ROM pro- 
eet oe For . Lengel of results, try entering these values: 0; 15; 65 (with overflow 
_ ii, The exponent is tested for overflow and for a zero result in lines 320 and 330. These 
‘tests are simpler in BASIC than in machine code, since the variable N, unlike the A 
-fegister, is not confined to one byte. raebasaies 


f A(8) in lines 50 to 120 can be pbtained by integrating 2°" 


to PI, after first multiplying the COS (N*U) f nh = 
and substituting COS U = 2*X-1. Each smn daha then 


ene 


THE ‘DRAW’ ALGORITHM 
The following BASIC program illustrates the essential parts of the DRAW 
when being used to produce a straight line. The program in its present form only 
for lines x>Y. 
10 REM DRAW 255,175 PROGRAM 
20 REM SET ORIGIN 
30 LET PLOTx=0: LET PLOTy=0 
40 REM SET LIMITS 
50 LET X=255: LET Y=175 
60 REM SET INCREMENT, i 
7@ LET i=x/2 
8@ REM ENTER LOOP 
90 FOR B=X TO 1 STEP -1 
100 LET A=Y+i 
110 IF X > A THEN GO TO 160 
120 REM UP APIXEL ON THIS PASS 
130 LET A-A-X 
140 LET PLOTy=PLOTyt+1 
150 REM RESET INCREMENT, i 
160 LET i=A 
170 REM ALWAYS ALONG ONE PIXEL 
180 LET PLOTx=PLOTxt1 
190 REM NOW MAKE A PLOT 
200 PLOT PLOTx,PLOTy 
210 NEXT B 


A complete algorithm is to found in the following program, as a subroutine that wil 
‘DRAW A LINE’ from the last position to X,Y. 


THE ‘CIRCLE’ ALGORITHM 
The following BASIC program illustrates how the CIRCLE command produces ji 
circles. 

Initially the number of arcs required is calculated. Then a set of parameters is p 
pared in the ‘memory area’ and the ‘calculator stack’. 

The arcs are then drawn by repeated calls to the line drawing subroutine that on eac! 
call draws a single line from the ‘last position’ to the position 'X,Y’. 


Note: In the ROM program there is a final ‘closing’ line but this feature has not 
included here. 


10 REM ACIRCLE PROGRAM 


20 LET X=127: LET Y=87: LET 2=87 
30 REM How many arcs? 

40 LET Arcs=4*INT (INT (ABS (P1*SQR Z)+0.5)/4)+4 
50 REM Set up memory area; MO-M5 
60 LET MO=x+z 

76 LETM1=0 

80 LET M2=2*2*SIN (PI/Arcs) 

90 LET M3=1-2*(SIN (PI/Arcs)) T 2 
100 LET M4=SIN (2*P1/Arcs) 

110 LET M5=2"PI 

120 REM Set up stack; Sa-Sd 

130 LET Sa=x+Z 

te LET Sb=Y-Z*SIN (P1/Arcs) 

H LET Sc=Sa 


23677,Sa: POKE 23678,Sb 


69 LET Sd-Sb 
id REM Initialise COORDS 
LET MO=Sd 


The Number -65536. 7 


3. The number -65536 can fit into the ‘small integer’ format as OO FF 00 00 00. | 
then the ‘limiting number’, the one which when twos complemented overflows tet 
80 hex in a simple one byte or 7 bit system, i.e. -128 decimal, which when twos comple. 
mented still gives 80 hex i.e. -128 decimal since the positive number 128 decimal do 
not fit into the system). es 


4. Some awareness of this may have inspired the abortive attempt to create 00 FF 00 00 
00 in ‘truncate’. It is abortive since it does not even survive the INT routine of which 
‘truncate’ is a part, It just leads to the mistake INT (-65536) equals -1. 


5. But the main error is that this number has been allowed to arise from ‘short addition’ 
of two smaller negative integers and then simply put on the stack as 00 FF 00 00 99 
The system cannot cope with this number. The solution proposed in ‘addition’ is to form 
the full five byte floating-point form at once; i.e. test for the number first, at about 
byte 3032, as follows: 


3032 PUSH AF Save the sign byte in A. 

3033 INC A Make any FF in A into 00. 
3034 OR E Test all 3 bytes now for zero, 
3035 OR D 

3036 JR NZ ,3040,ADD-STORE Jump if not -65536. 

3038 POP AF Clear the stack. 

3039 LD (HL) +80 Enter 80 hex into second byte, 
303B DEC HL Point to the first byte. 

303C LD (HL),+91 Enter 91 hex into the first byte. 
303E JR 3049, ADD-RSTOR Jump to set the pointer and exit. 
3040 ADD-STORE POP AF Restore the sign byte in A. 
3041 LD (HL),A Store it on the stack, 

3042 INC HL Point to the next location. 
3043 LD (HL),E Store the low byte of the result, 
3044 INC HL Point to the next location. 
3045 LD (HL),D Store the high byte of the result. 
3046 DECI. HE Move the pointer back to 

3047 DEC HL address the first byte of the 
3048 DEC HL result. 

3049 ADD-RSTOR' POP DE Restore STKEND to DE. 

304A RET Finished. 


6. The above amendment (i.e. 15 extra bytes) with the ommission of bytes 3223 to 
323E inclusive from ‘truncate’ should solve the problems. It would be nice to be able to 
test this. The calls of INT-STORE should not lead to 00 FF 00 00 00 being stacked, In 
‘multiply’ the number will lead to overflow if it occurs, since 65536 will set the carry 
flag; so ‘long’ multiplication will be used. As noted at 30E5, the 5 bytes starting there 
could probably be omitted if the above amendments were made. ‘Negate’ avoids stacking 
00 FF 00 00 00 by treating zero separately and returning it unaltered. Truncate deals 
separately with -65536, as noted above. SGN stores only 1 and -1. 


230 


address routine page 
OC55 Test for scroll 40 
OCFS ‘scroll?’ message 42 
0D4D Temporary colour items 43 
0068 CLS command 43 
ODAF Clearing the whole display area 44 
oDb9 CL-SET 45 
ODFE Scrolling 45 
0E44 Clear lines 46 
oEss CL-ATTR 48 
OESB CL-ADDR 48 
OEAC COPY command 48 
OECD COPY-BUFF 49 
OEF4 COPY-LINE 49 
OF2C EDITOR 50 
OF81 ADD-CHAR 51 
OFAO Editing keys table 52 
OFAQ EDIT key 52 
OFF3 Cursor down editing 53 
1007 Cursor left editing 53 
100C Cursor right editing 53 
1015 DELETE editing 53 
101E ED-IGNORE 53 
1024 ENTER editing 53 
1031 ED-EDGE 53 
, 1059 Cursor up editing 54 
1076 ED-SYMBOL 54 
107F ED-ERROR 54 
1097 CLEAR-SP 55 
10A8 Keyboard input 55 
111D Lower screen copying 56 
1190 SET-HL 57 
11A7 REMOVE-FP 58 


bits EXECUTIVE ROUTINES 


NEW command 59 
Main entry (Initialisation) 59 
RAM-CHECK 59 
Main execution loop 61 
Report messages 63 
MAIN-ADD 64 
Initial channel information 65 
Initial stream data 65 
WAIT-KEY 65 
INPUT-AD 66 
eae open 66 

66 
67 
67 
67 
67 
67 
67 
67 
68 


GHaNrLA 
Etides PFLAG 


is look-up table 


The Sinclair Spectrum is a complex microcomputer whose normal “tig 
Operation is controlled by the 16K ROM program that is inside every» 
Spectrum. In this book, Dr. lan Logan and Dr. Frank O’Hara exam 
program and explain exactly what it is that makes the Spectrum 
the way that it does. Every routine in the ROM has been disassem| 
has full comments on what its function is and how it relates to-tHe: 
functions in the ROM. . 4a / 
Where information on the contents of the Spectrum ROMis concerned ‘x 
obvious authoritative source is The Complete Spectrum ROM Rae Mee 
Disassembly. This gives all the interpreter and operating system details, 
with terse comments, and all the information one could possibly need is 
there. — Computing Today. 

The Spectrum owner with an interest in how it works will find anything they 
need to know about its software in the ROM disassembly. — Electronics & 
Computing Monthly. 

This book attempts, successfully, to explain exactly what makes the 
Spectrum operate in the way it does. It is ideal if you want to use completely 
all that the ROM offers. The detail is enormous — amazingly so. — 
Educational Computing. 

Overall, the 16K ROM program offers an extremely wide range 

of BASIC commands and functions. This book makes all the functions and 
entry points available for use in your own programs or for modification into 
your own special routines. 

The COMPLETE SPECTRUM ROM DISASSEMBLY is a must for all serious 
programmers of the Spectrum. 
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